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PREFACE 

An  important  tool  in  weapon  effects  research  is  the  numerical 
integration  of  the  differential  equations  of  motion  for  high  tempera¬ 
ture,  high  pressure  gases.  Computer  programs  which  describe  hydro¬ 
dynamic  motion  and  which  can  accommodate  radiation  transport  have 
been  helpful  in  describing  blast  effects,  fireball  growth,  high  ex¬ 
plosive  detonation  waves,  shock  tube  experiments,  bubble  expansions, 
radiation  blow-off  phenomena,  thermal  radiation  phenomena,  high 
altitude  effects,  and  underground  explosion  initial  phases. 

Such  programs  have  existed  at  RAND  in  various  but  increasing 
degrees  of  sophistication  for  the  past  14  years.  Many  reports  on 
blast  waves,  fireballs,  etc.,  have  presented  results  of  such  calcula¬ 
tions.  Currently,  several  other  organizations  use  similar  programs, 
but  many  more  would  enjoy  the  capability  if  such  a  code  were  generally 
available  and  easily  applied. 

This  report  attempts  to  answer  a  portion  of  that  need  by  describ¬ 
ing  in  detail  a  program  designed  for  ease  of  application  to  a  wide 
variety  of  problems.  This  program  has  evolved  from  earlier  versions 
(by  Brode) ,  and  is  the  product  of  the  present  authors  ’  efforts  over 
the  past  three  years.  Simplicity  and  generality  are  often  mutually 
exclusive  objectives.  The  compromises  made  in  this  computer  program 
have  tended  to  favor  generality  rather  than  simplicity  on  the  supposi¬ 
tion  that  it  is  easier  for  a  user  to  simplify  by  dropping  subroutines 
and  unwanted  features  than  to  invent  new  routines  in  order  to  handle 
each  new  problem. 
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SUMMARY 

This  report  contains  a  numerical  program  for  solving  hydro- 
dynamic  flow  and  radiation  transport  problems  in  the  diffusion  and 
grey-body  approximations.  The  program  is  appropriate  to  the  solution 
of  explosion  and  shock  wave  problems,  and  to  the  study  of  high  ex¬ 
plosive  or  nuclear  fireballs,  hot  gas  dynamics,  deflagrations  and 
detonations,  bubble  phenomena,  shock  tube  flows,  and  can  be  adapted 
to  a  host  of  other  dynamics  problems.  It  is  restricted  to  plane, 
cylindrical,  or  spherical  symmetry. 

The  report  offers  (1)  a  description  of  the  assumed  physical 
model,  (2)  a  rationale'  for  the  difference  equations  and  integration 
techniques  used  in  the  mathematical  formulation,  (3)  a  complete  set 
of  flow  diagrams  for  the  program  and  its  subroutines,  (4)  a  listing 
of  the  code,  (5)  two  illustrative  example  calculations  for  hydro¬ 
dynamics  and  for  radiation  flow,  and  (6)  helpful  hints  for  checking 
and  running  versions  of  the  program. 
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I.  INTRODUCTION 


This  is  a  world  full  of  dynamics  and  transient  phenomena,  and 
our  efforts  to  cope  with  and  to  better  understand  the  physical  forces 
and  reactions  associated  with  some  of  the  high  pressure,  high  tempera¬ 
ture  features  have  become  both  extensive  and  intensive.  We  search 
for  theories  to  describe  sues!  videly  differing  time -dependent  processes 
as  occur  in  atmospheric  re-entry  of  space  vehicles  or  ballistic 
missiles,  in  nuclear  explosions,  stellar  energetics,  or  lightning 
strokes.  We  look  for  rather  precise  descriptions  for  the  dynamic 
properties  of  many  such  problems,  even  where  the  situation  calls  for 
coupled  radiation  and  hydrodynamic  flow  treatment.  In  the  absence  of 
adequate  analytic  solutions,  numerical  procedures  have  grown  to  such 
sophistication  as  to  be  able  to  accommodate  much  of  the  physics  in¬ 
volved  and  to  include  both  greater  realism  and  detail  in  treating 
boundary  conditions,  material  properties,  and  geometrical  factors. 

It  is  now  practical  to  solve  a  wide  variety  of  radiation  and  hydro- 
dynamic  flow  problems  by  means  of  computer  programs  for  numerical 
integration  of  differential  formulations. 

The  object  of  this  memorandum  is  to  describe  in  detail  one  such 
numerical  program.  The  program  is  capable  of  calculating  in  one 
space  dimension  (spherical,  cylindrical,  or  plane  symmetry)  hydro- 
dynamic  motions  including  shocks.  Radiation  diffusion,  grey-body 
or  other  radiation  losses,  and  energy  sinks  or  sources  are  simul¬ 
taneously  calculable  with  this  code. 

With  such  a  program,  calculations  can  be  run  which  provide  a 
reasonable  approxiration  to  the  blast  and  thermal  phenomena  from 
nuclear  or  high  explosive  detonations.  It  can  compute  the  responses 
of  simple  targets  to  blast  and/or  thermal  radiation  loads.  It  can 
predict  some  deep  underground  or  underwater  explosion  phenomena,  and 
can  be  used  for  transient  blow-off  and  ablation  descriptions.  The 
program  has  been  used  to  investigate  shock  flows  down  tunnels,  the 
dynamics  of  lightning  strokes,  shock  interactions,  explosive  dynamics 
in  cavities,  in  space,  and  in  a  variety  of  materials  and  environments. 
In  addition,  shock  and  radiation  flow  characteristics  can  be  studied 
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in  reflection  or  transmission  normal  to  interfaces  -  between  air  and 
water,  between  water  and  soil,  or  between  various  metals  and/or  other 
solids  (treated  as  compressible  fluids). 

The  general  mechanisms  for  integrating  the  partial  differential 
equations  that  govern  the  phenomena  of  radiation  diffusion  and  hydro- 
dynamic  motions  are  approximately  the  same  for  all  these  types  of 
investigations.  The  chief  differences  lie  in  the  fixing  of  different 
initial  and  boundary  conditions  and  in  finding  appropriate  equations 
of  state  and  opacities  for  the  materials  involved.  Many  of  these 
latter  problems  have  been  minimized  in  the  present  program,  and  much 
of  the  pain  and  special  programming  usually  required  to  set  up  a  new 
problem  can  be  avoided.  The  provision  for  simplified  selection  of 
output  variables  and  display  of  results  also  makes  it  easier  to  get 
the  most  out  of  each  problem. 

However,  the  basic  computational  methods  are  similar  to  those 
of  previous  codes  developed  by  one  of  us  (Brode) . 
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II.  PHYSICAL  ASSUMPTIONS  AND  MATHEMATICAL  FORMULATION 

A  description  of  the  dynanics  of  an  explosion  can  be  obtained 
from  the  solution  of  a  set  of  nonlinear,  partial  differential 
equations  which  represent  the  conservation  of  mass,  momentum,  and 
energy  in  some  symmetry.  These  conservation  laws  may  be  expressed 
mathematically  in  several  ways,  but  are  generally  formulated  in  terms 
of  either  Eulerian  or  Lagrangian  coordinates.  The  Eulerian  form  is 
an  expression  of  the  conservation  laws  as  viewed  from  coordinate 
systems  fixed  in  space,  and  the  Lagrangian  form  is  an  expression  of 
the  sane  conservations  in  terms  of  a  fixed  set  of  masses  or  gas 
particles.  A  solution  in  the  Eulerian  case  may  represent  the  history 
of  a  blast  wave  at  a  fixed  point,  while  in  a  Lagrangian  system  a 
solution  may  describe  the  experience  of  each  particle  (or  an  initially 
identified  volume  or  mass  of  gas)  as  it  moves  about..  Lagrangian 
(i.e. ,  mass)  coordinates  are  used  in  the  present  progran. 

Most  of  the  currently  useful  methods  for  obtaining  numerical 
solutions  to  problems  in  hydrodynamics  (with  or  without  radiation 
flow)  employ  a  finite  difference  technique  in  which  the  motions  are 
followed  from  some  initial  time  to  subsequent  times  through  a  series 
of  finite  time  increments  and  over  a  set  of  discrete  mass  or  space 
differential  elements.  The  equations  that  govern  this  iterative 
integration  procedure  approximate  the  differential  equations  of  flow 
and  are  called  difference  equations. 


DIFFERENTIAL  EQUATIONS 

In  terms  of  the  variables  explicitly  treated  in  this  progran, 
expression  of  the  conservation  of  mass  takes  the  following  differential 
form: 
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in  which  p  represents  density  (V,  specific  volume),  R  a  radius  or 

spherical  dimension,  and  m  the  mass. 

It  is  understood  that  unit  length  is  included  in  the  volume 

of  cylindrical  symmetry,  and  unit  area  is  included  in  the  volume 

for  plane  geometry.  The  mass  (m)  is  defined  as  the  mass  per  steradian 

r  2 

(Mass/4tT)  in  spherical  symmetry  (m  *  f  pr  dr) ,  while  m  is  mass  per 

“  o 

radian  per  unit  length  (Mass/2TT,0  in  cylindrical  symmetry  (m  *  J  prdr) , 

2  <*r  ° 

and  is  mass  per  unit  area  (Mass/j l  )  in  plane  symmetry  (m  *  pdx) . 

The  conservation  of  momentum  in  differential  form  appears  as 

f  ■  -  f  <**>.  <2> 


in  which  u  is  a  particle  ox  gas  velocity,  P  represents  pressure,  Q 
is  the  artificial  viscosity  pressure,  and  t  represents  the  time. 

The  artificial  viscosity  is  a  convenience  first  introduced  by 
Von  Neumann  and  Richtmyer^  for  numerical  treatment  of  shock  waves. 

Its  effect  is  to  diffuse  a  shock  front  and  thus  avoid  the  paradoxical 
situation  of  discontinuities  or  sharp  shock  fronts  running  through 
discrete  mass  elements.  A  discontinuity  in  hydrodynamic  parameters 
requires  special  treatment  in  finite  difference  numerical  schemes 
in  order  to  avoid  extreme  oscillations  and  instabilities.  The 
artificial  viscosity  not  only  avoids  special  routines,  but  auto¬ 
matically  accommodates  all  shocks,  even  multiple  shocks  wherever 
and  whenever  they  occur.  At  the  same  time,  with  some  care  in  selection 
of  problem  parameters  such  as  zone  size  and  artificial  viscosity 
amplitudes,  the  spread  of  shocks  can  be  held  to  a  practical  minimum 
and  so  not  degrade  the  accuracy  of  results. 
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The  artificial  viscosity  form  originally  considered  (in  plane 
geometry)  by  Von  Neumann  and  Richtmyer  was 
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in  which  C  is  an  arbitrary  constant,  dimensionless,  and  of  value 
near  unity.  As  this  form  indicates,  for  compressions  (i.e.,  when 
SV/dt  is  negative),  a  positive  viscous  pressure  is  generated,  which 
has  a  magnitude  proportional  to  the  square  of  the  rate  of  compression 
and  the  square  of  a  mass  element  Am. 

Restricting  viscous  contributions  to  compressions  only  leads  to 
a  modified  form^ 
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in  which  we  have  included  a  dimensional  factor  to  maintain  C  as 
dimensionless  in  cylindrical  and  spherical  systems. 

For  weak  shocks,  this  quadratic  form  tends  to  generate  serious 
oscillations  behind  a  shock  front.  A  linear  viscosity  addition  may 
aid  in  damping  these  oscillations.  An  appropriate  linear  form  is 
similar: 
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A  statement  of  this  energy  balance  in  differential  form  reflects 
the  second  law  of  thermodynanics 
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where  the  terms  on  the  left  represent  an  adiabatic  relation  between 
rates  of  change  of  internal  energy  (E)  and  the  rate  at  which  com- 
pressional  work  is  done.  The  right  hand  side  includes  the  dissipative 
viscosity  term  which  provides  the  necessary  entropy  change  in  shocks. 
The  D-term  symbolizes  a  depletion  rate,  or  (for  negative  values) 
an  energy  input  rate. 
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The  final  term  (dL/3m) ,  a  luminosity  gradient,  represents  the 

flow  of  energy  in  the  diffusion  limit.  The  luminosity  itself  is  de- 

(6-1) 

fined  as  the  areal  flux  per  unit  angle,  where  the  area  Is  R'  '  and 

4 

the  black  body  flux  is  (c\/3)(daT  /JR).  Thus,  one  may  define  the 
luminosity  as 

L  -  R2(6-1)/k)  (3T4/3m),  (7) 

in  which  the  Rosseland  mean  free  path  (\)  has  been  replaced  by  3V/ack, 
a  is  the  radiation  constant  (see  p.  9),  -and  Eq.  (1)  has  been  used. 

The  quantity  k  is  related  to  the  usual  Rosseland  mean  opacity  (K^) 
by  k  »  31^/ac,  and  c  is  the  velocity  of  light. 

In  addition,  it  is  necessary  to  describe  the  thermodynamic  pro¬ 
perties  of  the  material,  i.e.,  some  constitutive  relation  between 
specific  internal  energy,  pressure,  and  density  for  hydrodynamics. 
Radiation  problems  also  require  that  an  opacity  (k)  and  temperature 
(T)  be  defined  and  related  to  the  other  thermodynamic  variables. 

These  equation  of  state  functions  can  be  expressed  in  various  forms, 
but  the  basic  form  employed  in  this  program  expresses  energy,  pressure, 
and  opacity  as  functions  of  temperature  and  specific  volume  (or 
1  density),  i.e.,  E(T,V)  ,  P(T,V),  k(T,V). 

i  DIFFERENCE  EQUATIONS 

'  Figure  1  denotes  the  particular  choice  of  notation  and  concen- 

^  tration  of  variables  at  mass  points  and  time  points.  In  the  par- 

;  ticular  system  represented  in  Fig.  1  the  mass  is  identified  with 

the  half  points  in  the  "j"  variables,  the  time  is  centered  at  the 
(  half  points  in  the  "n"  variable,  and  the  various  quantities  such  as 

!  the  velocities,  radii,  specific  volumes,  pressures,  and  energies  are 

identified  at  the  times  and  mass  points  indicated  in  the  diagram. 

With  such  an  identification  it  is  possible  to  translate  the  differen¬ 
tial  equations  into  difference  equations  which  largely  deal  with 
centered  quantities.  That  is,  each  difference  equation  is  balanced 
about  the  same  time  point  and  the  same  mass  point  in  order  to  minimize 
the  numerical  errors  in  the  approximation  of  differentials  by  finite 
differences.  A  common  procedure  is  to  begin,  as  in  Eqs .  (8-13),  to 

*For  some  physical  problems  it  is  important  to  note  that  this  form 
does  not  account  for  retardation,  and  energy  may  transport  faster  than 
the  speed  of  light. 
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develop  at  time  n  +  1  a  new  velocity  and  then  to  find  a  new  radius 
for  each  j  point.  From  the  new  radii  one  can  define  a  new  density 
or  specific  volume,  and  from  the  change  in  density,  an  artificial 
viscosity  at  the  new  time.  In  these  equations  subscripts  (j  or  ,}£*&) 
and  superscripts  (n,  n+^,  or  m-1)  indicate  definitions  of  each  par¬ 
ticular  quantity  at  those  discrete  times  and  masses. 
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FIG.  1— Lagrangian  difference  grid  for  numerical  calculation 
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for  V1’*'1  <  v”  ,  and 
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It  is  in  the  energy  equation  alone  that  radiation  enters 
(except  radiation  pressure  which  can  contribute  to  the  momentum 
only  at  exhalted  temperatures).  For  hydrodynamics  only,  the  energy 
equation  can  be  written  as 
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RADIATION  DIFFUSION 


When  radiation  diffusion  is  included,  the  luminosity  as  defined 
in  Eq.  (7)  becomes  in  difference  form 
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The  opacity  is  averaged  with  the  mass  increments  and  reduced 

by  the  factor  ac/3  in  which  c  is  the  speed  of  light  and  a  is  the 
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radiation  density  constant  (7.62  X  10  erg/cm  / deg  ). 
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*  r  .  n ,„n  ..n  %  _ .  — _  ..  ^  .  a-  ..  _  i.  * 


j  for  k  (T.,V  ,)  and  for  the  material  to  the  right  of  the  point  j 

J  J“?  t 

for  hn(T”,  1116  temPerature  t"  is  defined  as  +  ^Tj-^4]  • 


for  k  (T“,  V*^.  The  temperature  Tj  is  detined  as 

This  procedure  provides  a  reasonable  opacity  at  interfaces  between 
materials  of  very  different  opacity,  and  does  not  add  undue  complexity 
when  the  materials  are  the  same. 

EXPLICIT  RADIATION  DIFFUSION 


For  an  explicit  scheme  of  including  radiation  diffusion  (one 
which  has  an  explicit  stability  limitation  to  the  size  of  time 
increment  allowed) ,  the  energy  equation  becomes 


E1*!;  =  En  ,  +  (p1*^  +  Qfb(v”  ,  -  v”4-})  +  -  (L*J  t  -  l")  - 

3-h  j-%  j-¥v  j -k  j-¥  v  j-i  y  yh 


in  which  Is  a  source  or  sink  term  yet  to  be  specified. 

Some  iterative  converging  solution  of  Eq.  (17)  is  necessary 

in  which  values  of  PI}+^  =  (P^f  +  P?  ,)/2  and  E1*^  are  sought  which 

satisfy  both  Eq.  (17)  and  the  equation  of  state  E(P,V)  or  E(T,V), 

P(T,V).  In  this  explicit  form,  such  iterative  convergence  is 

n4*l  rrt*l 

limited  to  the  two  variables  Ej_^  and  Pj„^»  all  other  quantities 
being  of  fixed  value  for  that  step.  When  a  new  energy^stowi-i  pressure 
have  been  derived,  a  new  temperature  (Xj_^)  also  exists,  and  so, 
ultimately,  new  opacities  and  luminosities  can  be  computed  for  the 
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next  time  cycle. 

The  set  of  equations  (Eqs.  12-17)  together  with  the  equations 
of  state  and  opacities  form  a  set  of  equations  whose  solution  for 
"new"  values  of  each  variable  at  all  of  the  mass  points  can  be 
directly  obtained  by  successively  evaluating  each  equation  beginning 
with  j  *  0  and  proceeding  through  the  maximum  j-point,  or  through 
all  the  "active"  zones. 

amsK  ssssssm 

The  implicit  diffusion  treatment  is  a  form  in  which  the  lumin¬ 
osities  are  treated  as  centered  at  the  midpoint  in  time  (nf%)  rather 
than  taken  at  the  previous  time  (n)  as  in  the  above  explicit  form 
in  Eq.  (17).  Thus  the  form  of  the  energy  equation  becomes 

Ef£  “ 

i-h 

+ 

In  this  implicit  form  the  variables  to  be  simultaneously  determined 
are  now  and  in  addition  to  E^f  and  P?*?.  But  these  energy 

equation  variables  are  no  longer  independent  of  other  mass  points  as 
they  were  before,  and  it  is  now  necessary  to  solve  all  of  the  energy 
(and  equation  of  state  and  opacity)  equations  fa*-  all  of  the  mass 
points  simultaneously  to  arrive  at  new  values.  Although  such  a 
simultaneous  "relaxation"  of  these  equations  avoids  the  restriction 
of  an  explicit  stability  limitation  on  the  time  step  size  permissible, 
it  does  add  considerable  computational  complication  and  redundant 
numerical  exercise  to  the  problem,  and  so  can  increase  the  running 
time  per  time  step  several  fold  -  in  part  negating  the  freedom  to 
choose  larger  time  intervals.  The  procedure  consists  of  the  evaluation 
of  a  set  of  forward- backward  substitution  coefficients,  related  to 
the  proximity  of  variables  to  their  proper  values  in  a  self  consistent 
set  of  solutions,  i.e.,  related  to  a  measure  of  the  relaxation  in  a 
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given  time  step.  In  this  process,  the  basic  variables  are  taken 
as  temperature  (T)  and  luminosity  (L) . 

Beginning  with  ]  *  1,  the  following  quantities  are  computed: 
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in  which  Jq  =  Gq  =0  (for  spherical  or  cylindrical  symmetry) ; 


This  particular  forward- backward  substitution  scheme,  coupled 
with  a  Newton's  method  for  projecting  new  values, was  suggested  by 
R.E.  LeLevier  and  has  been  used  successfully  in  earlier  similar 
programs . 
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These  coefficients  are  successively  evaluated  for  each  increasing 
integer  value  of  j  (at  each  mass  point)  until  the  next  j  is  at  a 
point  beyond  the  sensible  diffusion  front  where  temperature  changes 
from  ambient  are  negligible.  This  zone  is  designated  as  the  turn¬ 
around  point  (j*)  where  conditions  are  such  that  t”^_^  >  Z^  but 
t".  ,  <  Z1 .  When  there  is  no  temperature  gradient,  the  luminosity 
must  be  zero,  so  that  0,  providing  T^^  <  Zj  for  all  j  >  j*, 

being  small. 
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The  procedure  then  is  to  compute  changes  in  temperature  and 
luminosity  (using  the  foregoing  coefficients)  beginning  at  j*  and 
working  back  to  j  *  0. 

The  temperature  at  j*  +  \  on  the  (i  +  l)st  iteration  is  first 
calculated  as 


where 


i+l-nfl 

V*-* 


*'Tn*’^  + 


6T 


j*f^ 


(29) 


(30) 


Then  beginning  with  j  =  j*,  successive  evaluations  go  as 

^  + jT  •  <3i> 

i+^nfl  =  ^n+1  +  ^  (32) 

J  j  J 

-  (-M1**  a.j  +  *$$/■££  ,  (33) 

reducing  j  each  time  until  j  =  1.  "Relaxation"  or  convergence  is 
determined  by  testing  each  6T/T  or  6L/L  against  an  arbitrary  small 
constant  and  entering  another  iteration  loop  to  recompute  the 
coefficients  and  another  set  of  5T  and  6L  as  long  as  any  one  6T 
or  6L  exceeds  the  chosen  test  constant. 

ADDED  MASS 

Since  interests  in  explosion  problems  encompass  phenomena  occuring 
both  very  close  to  the  explosive  (in  a  small  mass  and  volume)  and 
very  far  from  the  source  (with  very  large  masses  and  volumes  of  air 
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Intervening) ,  it  is  frequently  convenient  to  bring  in  more  sir  mass 
during  the  calculation. 

To  expand  the  mass  system  without  adding  indefinitely  to  the 
number  of  mass  points  carried  requires  some  mechanism  for  dropping 
or  rather  combining  interior  masses  as  new  masses  are  added  at  a 
front.  When  zones  are  combined,  special  care  should  be  taken  to 
conserve  energy,  momentum  and  mass.  In  this  program,  one  zone  at  a 
time  (as  needed)  is  added,  and  two  zones  elsewhere  (in  the  interior) 
are  combined  in  order  to  keep  constant  the  number  of  zones  carried 
in  the  calculation.  Because  of  the  form  of  the  artificial  viscosity, 
sudden  discontinuities  in  mass  element  size  can  create  spurious 
signals  as  shocks  cross  them.  For  this  reason,  some  care  must  be 
exercised  in  deciding  when  and  where  zones  may  be  combined.  Generally, 
zones  are  selected  to  be  combined  where  motions  and  pressure  or  tem¬ 
perature  gradients  are  least,  i.e. ,  in  such  a  way  as  to  retain  essential 
problem  detail  while  not  unduly  restricting  the  size  of  time  steps 
dictated  by  stability  requirements. 


SOURCES.  SINKS.  AND  DEPLETION 

The  single  variable,  D,  appearing  in  the  energy  equations  can 
be  used  to  represent  such  physical  features  as  can  be  expressed  as 
energy  losses  or  sources.  Such  source  or  sink  energy  rates  may  be 
included  in  some  or  all  zones  in  the  problem  and  may  vary  with  time. 
The  detonation  of  high  explosive  can  be  modeled  by  choosing  this 
source  term  to  represent  the  rate  at  which  energy  is  released  in 
detonations.  With  a  finite  spread  to  the  detonation  front,  this 
source  term  becomes  the  product  of  the  energy  generated  per  unit 
mass  of  explosive  (E  _) ,  the  detonation  velocity  (UOT),  and  the 
time  increment  (At1**  *)  ,  divided  by  the  total  spread  of  the  detonation 
front  appropriate  to  that  dictated  by  the  artificial  viscosity,  i.e., 
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where  S  is  the  number  of  zones  of  detonation  front  spread.  Such  a 
rate  of  energy  increase  would  then  bo  in  each  zone  until 

the  total  energy  added  equals  the  desired  detonation  energy,  i.e., 
for  a  time  equal  to  SAR/U 

w 

STABILITY  REQUIREMENTS 

Such  finite  difference  methods  as  employed  here  are  frequently 

subject  to  mathematical  limitations  which  place  upper  bounds  on  the 

size  of  time  increments  that  can  be  taken  without  the  unstable  growth 

of  spurious  signals  from  truncation  or  round-off  error.  The  usual 

Courant  Condition  is  simply  a  statement  that  time  steps  should  be 

smaller  than  the  time  for  a  sound  signal  to  propagate  beyond  the 

boundaries  of  adjacent  zones  (as  in  Fig.  2) .  Thus,  At  <  AR/s  for 

.  ,  in  which  s  is  the  local  sound 
in  3 

speed.  It  is  generally  time  consuming  to  calculate  the  sound  speed 
at  each  zone  when  an  approximate  form  which  is  quicker  to  compute 
will  suffice  to  determine  the  maximum  allowable  time  step  within  a 
reasonable  accuracy.  For  an  ideal  gas,  the  sound  speed  squared  is 
given  by 

s2  *  yP/p  =  yPV,  (35) 

and  the  stability  condition  can  be  expressed  as 

2  2  2(6-1) 

AtZ  <  V(fcn)  /C3P  R  ,  (36) 

in  which  we  have  substituted  AR  =  V  An/R^  ^  and  is  the  maximum 
value  of  y  to  be  encountered  and  depends  on  the  materials  used  and 
their  equations  of  state.  For  ideal  gases,  a  value  of  5/3  is  a 
maximum, and  lesser  values  are  larger  than  unity  always,  so  that 
using  5/3  for  could  keep  At  smaller  than  necessary  by  no  more 
than  23%.  For  the  dense  gases  of  detonation  products  before 
expansion,  or  for  fluids  such  as  water,  or  for  solids  at  high 
temperatures  and  densities  the  effective  maximum  y  can  exceed  5/3, 
and  the  constant  should  be  chosen  with  that  in  mind. 


every  zone,  or  At  < 


j 


! 


I 


XWS AW* 


TT~ 


V 


-17- 


In  shock  fronts  or  compression  regions,  the  presence  of  a 
quadratic  artificial  viscosity  changes  the  nature  of  the  linearized 
differential  equations  from  one  which  characterizes  a  wave  equation 
to  one  of  a  diffusion  type.  Consequently,  in  such  shock  regions 
another  difference  equation  stability  condition  exists,  a  diffusion 
stability  limit.  An  approximate  derivation  of  the  viscosity  stability 
condition  comes  from  the  momentum  conservation  equation  (Eq.  2), 
with  the  assumption  that  the  artificial  viscosity  pressure  (Q)  domi¬ 
nates  the  usual  thermodynamic  pressure  (P) .  In  that  case. 


Su  ~  _6-l  dQ 

di  ~  "  R  dm- 


CS?) 


In  regions  of  compression,  the  quadratic  form  of  the  artificial  vis¬ 
cosity  has  been  taken  as 
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Cl^  (  £V  \2 

v  r2(6-1)  V  dt  J  ' 


(33) 


But  differentiating  the  conservation  of  mass  equation  (Eq.  1),  and 
substituting  for  dV/d t  leads  to 
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v  R2(6-l)  v  dm  J 


With  this  form  and  from 
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the  momentum  equation  in  a  shock  (Eq.  37)  becomes  approximately 
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and  ignoring  geometric  divergence  terms  which  occur  in  cylindrical 
or  spherical  symmetry  (valid  as  long  as  shock  front  dimensions  are 
small  compared  to  radii  or  other  problem  dimensions)  this  equality 
becomes 


iu  ciWv  a u\2 

dt  -  r2(6-1)  SR  VBR/ 

(42) 
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In  shock  regions,  derivatives  such  as  du/At  or  $  u/dR  are  large; 
i.e.,  rapid  velocity  changes  and  velocity  gradient  changes  are 
taking  place  relative  to  changes  in  other  parameters,  so  that  to 
some  approximation  this  equation  appears  as  a  diffusion  form 
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which  is  considered  nearly  constant  or  slowly  varying  in  the  region 
of  interest.  Since  we  have  not  chosen  to  define  the  artificial 
viscosity  at  the  midpoint  between  the  new  and  the  old  velocity, 
but  rather  have  defined  it  at  the  old  velocity  time  (n-y ,  this 
diffusion  differential  form  (Eq.  43)  translates  into  a  corres¬ 
ponding  difference  equation  which  uses  velocities  at  adjacent  mass 
points  and  at  the  old  time  (n-y  to  extrapolate  to  a  new  velocity 
at  time  n-l  \ 
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By  considering  the  growth  of  perturbations  in  the  new  velocity 
(see  Von  Neumann  and  Richtmyer,  Ref.  1,  p.  236),  it  becomes  clear 
that  stability  for  such  a  forward-difference  scheme  has  an  explicit 
stability  condition  which  is 
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But,  again  ignoring  geometric  divergence  terms, 
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When  the  explicit  form  is  used  to  compute  radiation  diffusion, 
a  similar  forward-difference  stability  condition  applies,  viz, 
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Since  for  various  regions  and  various  reasons  the  implicit 
radiation  diffusion  routines  are  unable  to  converge  on  a  realistic 
solution  and  are  for  practical  purposes  unstable  beyond  some  reason¬ 
ably  small  time  steps,  it  is  often  necessary  to  arbitrarily  limit 
the  size  of  time  steps  to  a  value  larger  than  but  proportional  to 
that  allowed  for  explicit  radiation.  To  make  such  a  choice  convenient, 
the  program  includes  an  explicit  stability  condition  with  a  constant 
(C^)  which  can  be  chosan  as  suitable  for  implicit  radiation  (e.g., 
equal  to  2,3,  or  4),  but  must  be  taken  as  unity  for  the  explicit  routines. 

These  three  stability  conditions  are: 

Courant: 
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Shock  (artificial  viscosity) : 
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C,.  =  1  for  explicit  radiation. 

Cj  i  1  for  implicit  (open  choice). 
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A  simple  test  problem  will  facilitate  the  explanation  of  the 
essential  features  of  this  progran.  In  any  such  code  there  are 
many  arbitrary  designations  and  notations  which  are  easier  demon¬ 
strated  than  explained.  Hopefully,  none  of  the  empirical  choices 
have  significant  influence  on  the  results  of  any  calculations  in  so 
far  as  the  physical  representation  is  concerned.  Some  of  the  para¬ 
meters,  such  as  choice  of  the  number  of  zones  or  mass  points,  choice 
of  zone  sizes,  or  choices  of  convergence  test  criteria  do  affect  the 
results  when  a  choice  becomes  extreme  or  so  coarse  as  to  reduce 
accuracy.  A  few  exanple  calculations  may  help  demonstrate  both 
appropriate  values  for  such  constants  as  are  required  and  the  need 
or  function  of  each  input  required. 

As  a  simplest  beginning,  a  plane  shock  wave  generated  by  a 
constant  pressure  at  one  boundary  will  be  demonstrated.  Such  a 
problem  has  a  simple  analytical  solution,  and  the  deviations  from 
the  correct  solution  that  occur  when  we  make  various  choices  of 
parameters  are  easily  identified.  When  the  constant  pressure  is 
applied  at  the  left-hand  boundary  of  a  volume  of  ideal  gas,  a  shock 
of  constant  strength  should  move  at  constant  speed  to  the  right. 

The  usual  Hugoniot  or  shock  conservation  conditions  relate  the  con¬ 
ditions  behind  a  plane  shock  to  those  in  front  of  it  as  follows: 

u  p 

U2  ■  1  “  T2  or  PQU  =  PS(U  -  us)  ,  (mass)  . . .  (52) 

Es  "  Eo  =  ■JLT~2  <p  ■  7  >  »  (energy)  ...  (53) 

Fo  Hs 

Ps  “  Po  =  po  US  U  *  (momentum)...  (54) 
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in  which  subscripts  "s"  refer  to  shock  quantities,  subscripts  "o" 

refer  to  ambient  (pre- shock)  values,  U  is  the  shock  velocity,  u  the  ; 

particle  velocity,  p  the  density,  P  the  pressure,  and  E  the  internal 

energy.  It  has  further  been  assumed  that  the  pre- shock  gas  velocity 

is  zero. 

If  one  defines  an  "effective  gamma"  by  the  relation 
E  *  P/p(yl),  i.e.,  v  3  1  +  P/Ep,  and  eliminates  internal  energies 
from  these  Hugoniot  expressions,  then  in  place  of  the  energy  equation, 
one  can  write 
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Eliminating  the  shock  vp1. ->city  (U)  from  Eqs.  (52)and(54),  leads 

to  an  expression  for  the  square  of  the  peak  particle  velocity  (u  ) 

8 

in  terms  of  density  and  pressure. 
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and  using  Eq.  (55)  to  eliminate  density  leads  to 
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For  an  ideal  gas  (y{ 


y  ) ,  this  expression  reduces  to 
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Similarly,  the  square  of  the  shock  velocity  becomes 
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(59) 


With  a  value  of  y  equal  to  7/5  (corresponding  to  an  ideal  diatomic 
molecule  gas  and  appropriate  for  air  at  normal  temperatures)  these 
expressions  reduce  to  the  following: 
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and  the  density  ratio  becomes 


(61) 


6P  +P 
s  o 

P  +6P  * 

s  o 


(62) 


The  specific  example  used  to  illustrate  the  mechanics  of  running 
a  hydrodynamics  shock  problem  employs  a  suddenly  applied,  steady  pres¬ 
sure  at  the  left-hand  boundary,  and  that  pressure  was  chosen  as  one 
9  2 

kilobar,  or  10  dynes/ cm  .  The  ambient  pressure  into  which  the  dis¬ 
turbance  propagates  is  taken  as  that  corresponding  to  an  ambient 

3 

density  of  0.0011  gm/cm  and  a  temperature  of  293°K  in  an  ideal 
diatomic  gas  (v  =  1.4,  R  ~  2.8777  x  10+^  dyne-cm/gm/°K)  the  caloric 
equation  of  state  becomes 


P  -  (y-l)pE  =  0.4pE  , 


(63) 


and  the  thermal  equation  of  state  becomes 

T  -  E  =  1. 39  x  10”7E,  ...  (64) 

o  2  3 

with  T  in  K  and  E  in  ergs/gm,  P  in  dyne/an  and  p  in  gpi/cm  . 
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The  value  of  the  ambient  pressure  is  approximately  0.927482  bars. 

9 

The  pre-shock  energy  is  about  2.10791  x  10  ergs/gm.  Thus,  from  the 
above  relations  (Eqs.  60-64)  and  the  above  pre-shock  values  and 
for  a  driving  pressure  of  10  dynes/ cm  ,  the  pre-  and  post- shock 
values  can  be  computed  and  used  to  check  the  performance  of  the 
numerical  program.  These  values  are  listed  in  Table  1  below. 


Table  1 

SHOCK  PARAMETERS  FOR  EXAMPLE  CALCULATION 


Symbol 


Hydrodynamic 

Parameter 


Pre-Shock 


Post-Shock 


Pressure(dyne/cm  ;  0.927482x10 


10' 


Density(gn/cm  ) 


1.1x10 


-3 


6.56173x10 


-3 


Particle  velocity 
(cm/ sec) 

Shock  velocity 
(cm/sec) 

Energy  (erg/gjn) 


869,452 


1,044,552 


2.10791xl09  3.80999xl0U 


Temperature(  K) 


293.00 


52,959 


In  this  demonstration  problem  we  have  arbitrarily  chosen  thirty 
zones  of  one  centimeter  thickness  into  which  the  disturbance  (shock) 
may  propagate.  The  initial  conditions  in  these  zones,  as  well  as  in 
any  zones  to  be  added  later,  are  the  pre-shock  conditions  listed 
above. 


-25- 


The  initial  time  step  may  be  taken  as  anything  less  than  that 
which  the  stability  conditions  stipulate,  but  too  small  an  initial 
step  may  require  many  cycles  to  build  up  to  a  significant  increment 
since  the  program  limits  increases  in  At1**"^  to(9/8)Atn  In  cases 
of  a  suddenly  applied  load  or  an  initially  rapidly  moving  boundary, 
the  stability  conditions  may  not  provide  a  correct  limit  on  the 
first  cycle.  In  any  case,  such  failure  is  avoidable  by  insuring 
that  the  initial  step  is  chosen  as  less  than  the  time  for  a  boundary 
to  move  across  the  next  zone,  and/or  less  than  the  time  for  a  sound 
signal  to  cross  that  zone. 

The  acceleration  of  the  left  hand  boundary  on  the  first  cycle 
is  approximately 


in  which  &n  =  (ZJn.^  +  Am._^)/2  and  =  0.  The  pressure,  P_^ 

is  the  boundary  pressure  of  10  ^  dyne/ cm2,  P^_  is  the  ambient  pressure 
(~  10^  dyne/cm2),  and  a  ARj+^  =  ^  gm/cm2.  Thus 

the  velocity  of  the  left  boundary  after  the  first  time  step  is 


At°  1.818xl012(cm/sec)  . 


(66) 


The  time  increment  At°  may  be  interpreted  as  an  average  between 
the  At  ^  and  At^.  If  we  presume  At  ^  =  0,  then  At°  =  At^/2,  i.e., 
half  the  initial  time  step.  Thus 


Uq  ~  0.9091xl0'*'2  At^  (cm/sec)  , 
and  the  change  in  position  of  the  boundary  becomes 


(67) 


=  u*  At*  ~  0.9091xl012  (At*)2  (cm)  . 


-26- 


* 

I 


If  we  ask  that  the  initial  change  in  the  left-hand  boundary  be 
small  compared  to  the  zone  size,  say  less  than  10%  of  the  first  zone 
thickness,  then 

,  r  ar  , 

At  <  V  0.9091X1013  ~  0.33166x10“°  M-  (69) 

We  are,  then,  led  to  an  initial  choice  of  time  step  of  less  than 
0.33x10  **  Sec.  In  this  first  example  we  have  (arbitrarily)  chosen 

%  -7 

to  start  with  At  =  2x10  sec,  or,  in  the  program  units  of  milli¬ 
seconds,  At^  =  2x10  ^  msec  and  At°  =  Lt^/2  -  10  *  msec. 

INTERPRETATION  OF  EXAMPLE  PROBLEM  NO.  1  OUTPUT 
* 

HAROLD  TEST  1.  The  problem  is  so  labeled  for  Hydrodynamic 
And  Radiation,  One  Lagrangian  Dimension,  and  is  preferred  by 
some  of  us,  as  within  the  six  letter  limitation  on  notation.  The 
senior  author  would  prefer  the  short  title  R0DHARD,  standing  for  RAND 
One  Dimensional  Hydrodynamic  And  Radiation  Diffusion,  which  is  some¬ 
what  more  descriptive. 

IDEAL  GAS.  A  further  identification  of  the  nature  of  the 
problem. 

EQUATIONS  OF  STATE  FOR  THE  GENERATOR.  These  equations  of  state 
are  listed  as  a  matter  of  record,  since  questions  may  otherwise  arise 
at  later  times  as  to  just  what  fits  or  tables  were  used.  In  this 
case,  the  Generator  was  provided  with  the  two  relations 


P  =  (y-l)Ep  as  FP1001  = 

. 4*E/V , 

(70) 

and 

T  =  (v-l)E/R  as  FE1001  = 

. 139*E. 

(71) 

The  Executor  was  given  the  single  equation 

P  =  . 4*E/V ,  (72) 


Expressions  in  CAPITAL  LETTERS  or  underscored  are  those  appearing 
on  the  output  sheets  reproduced  at  the  end  of  this  section  and  to  be 
explained  or  discussed  here. 


p 
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with  the  additional  provision  for  temperature  calculation  at  output 
times  as  specified  in  the  Generator.  For  hydrodynamics,  the  tempera¬ 
ture  is  not  a  sufficient  nor  a  necessary  quantity. 

HISTORIES .  To  restart  or  continue  the  problem  without  beginning 
over  again,  tape  histories  can  be  provided  periodically,  storing  data 
analogous  to  that  necessary  at  the  beginning  and  provided  by  the 
Generate  subroutines.  The  selection  of  when  such  a  tape  record  shall 
be  written  can  be  either  by  cycle  intervals  or  by  problem  time  inter¬ 
vals.  Six  successive  rates  may  be  specified.  In  this  example,  his¬ 
tories  are  called  for  every  ,025  milliseconds  until  1  millisecond. 

PRINTOUTS.  The  frequency  at  which  specified  listings  of  variables 
at  all  active  mass  zones  will  be  listed  can  be  similarly  specified.  In 
this  case,  we  have  elected  to  print  out  such  data  on  the  fir  st  three 
cycles  to  aid  code  checking.  Subsequent  listings  of  data  are  called  for 
at  cycle  10,  at  forty  cycle  intervals  until  cycle  263,  at  cycles  263 
and  264  (to  illustrate  the  variables  just  before  and  just  after  the 
combining  of  a  pair  of  masses  to  accomodate  an  added  zone) ,  and  at 
fifty  cycle  intervals  thereafter  until  cycle  614. 

ENERGY  CHECKS.  In  many  problems  it  is  helpful  to  keep  track  of 
both  the  distribution  of  a  net  explosion  energy  and  the  total  net  en¬ 
ergy,  and  this  is  provided  in  a  print  of  the  internal,  kinetic  and 
total  energy  in  each  region,  as  well  as  the  sum  of  internal,  kinetic 
and  total  energies  over  all  the  regions.  In  this  example,  since  work 
is  being  done  continuously  by  the  pressure  on  the  boundary,  such  an 
energy  summation  serves  little  purpose  and  little  check  on  the  accuracy 
of  the  calculation.  Consequently,  we  have  hoped  to  avoid  any  energy 
checks  by  selecting  an  interval  laiger  than  the  expected  length  of  the 
run  (i.e.,  every  1000  cycles). 

PMIN  BNDRY  COND.  Whenever  a  special  boundary  condition  is  selec¬ 
ted,  it  will  be  listed  here.  In  this  example,  a  constant  pressure  of 
jc  3 

0.1  jerks/meter  (1  kilobar)  is  applied  at  the  lower  (or  left-hand) 
boundary  -  at  j=  -  for  a  very  long  time  (for  10^  milliseconds)  . 

RMIN  =  1.  This  indication  of  the  initial  value  of  the  position 
of  the  left-hand  boundary  is  important  in  that  it  indicates  a  non¬ 
zero  value  of  the  position.  Whenever  the  RMIN  is  started  at  exactly 

- - -  16 

A  jerk  =  10  ergs. 


5 
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zero  value,  the  program  avoids  calculation  of  the  velocity  and  the 
radius  at  that  boundary,  and  consequently,  the  boundary  remains  at 
zero  value  throughout  the  problem.  Such  is  the  intention  for  spheri¬ 
cal  and  cylindrical  geometries,  and  could  be  the  case  where  a  rigid 
boundary  is  desired  at  the  left  of  a  plane  geometry  problem.  In  this 
case,  both  the  velocity  and  the  position  at  j=0  will  be  computed  each 
cycle,  and  can  be  expected  to  change. 

PLANE  GEOMETRY.  This  is  a  reminder  of  the  selected  geometrical 
factor  -  that  the  problem  is  set  up  in  plane  rather  than  cylindrical 
or  spherical  symmetry. 

REGION  1.  MATERIAL  1001.  Each  region  beginning  at  the  left- 
hand  boundary  is  designated  with  an  increasing  integer  (region  1 
being  the  first,  region  2,  next,  etc.)  and  by  a  material  number 
designation.  The  material  number  should  correspond  to  one  of  those 
listed  with  the  equations  of  state,  and  thereby  identifies  the 
material  properties  that  will  be  ascribed  to  that  region.  Also 
listed  for  each  region  are  the  various  selectable  constants, 
through  C,_.  The  definition  of  anu  C}  is  given  in  Eq.  13  or  as 
the  amplitudes  selected  for  the  quadratic  and  the  linear  terms  of 
the  artificial  viscosity,  respectively.  Since  the  shock  in  this 
example  will  be  a  fairly  strong  one,  no  linear  viscosity  is  necessary, 
and  C 2  is  set  equal  to  zero.  is  chosen  equal  to  6.  The  number 
of  zones  to  be  expected  in  the  shock  front,  as  derived  in  a  similar 
manner  by  von  Neumann  and  Richtmyer^  becomes 

Number  of  zones  ="  TT^5c^/(yf  1)  .  (73) 

Since  this  example  problem  uses  an  ideal  gas  with  y  =  1.4,  a  value 
of  6  for  should  build  a  shock  spread  of  about  7  zones.  If  we 
were  in  water  and  so  using  a  y  more  nearly  equal  to  7,  then  a  value 
of  =  14  or  15  would  be  necessary  to  make  a  spread  of  six  zones. 

The  Courant  stability  condition  also  includes  an  adjustable 
constant.  As  used  in  Eq.  (36),  represents  a  maximum  value  of  y, 
so  in  this  case  it  can  be  taken  as  1.4.  It  was  in  fact,  taken  as 
slightly  larger,  as  1.6,  but  that  is  not  necessary. 
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The  artificial  viscosity  stability  condition  involves  a  constant  C4 
which  should  be  at  least  as  large  .•  .*  four  times  (see  Eqs.  47  and 
50).  Demonstrating  a  certain  insensitivity  in  this  condition,  we 
have  used  without  unstable  results  a  value  of  only  16,  while  40^=  24. 

The  radiation  stability  constant,  (as  defined  in  Section  II) 
must  be  set  to  unity  for  explicit  radiation  diffusion.  Larger  values 
of  C,.  are  theoretically  permissible  for  the  implicit  radiation  formu¬ 
lation.  For  hydrodynamics,  it  Is  immaterial,  and  in  this  example, 
is  set  to  zero. 

The  ambient  energy  for  each  region  is  also  specified  so  that 
in  totaling  the  energy  of  that  region  and/or  of  the  whole  system, 
the  net  energy  introduced  by  a  source  (an  explosive  yield,  or  an 
influx  of  radiation  energy)  can  be  identified  and  maintained  even 
as  new  zones  (at  ambient  conditions)  are  added  to  the  region.  Since 
a  continuous  influx  of  energy  is  involved  in  this  exanple  problem, 
no  attempt  to  account  for  the  net  energy  will  be  made,  and  E  =  0 
will  suffice.  If  one  were  to  choose  to  include  (or  rather  exclude) 
this  ambient  energy  in  the  energy  check  sums,  the  appropriate  value 
would  be  0.2108,  the  same  energy  listed  as  initial  value  for  the 
internal  energy  of  the  last  zone. 

The  table  of  initial  values  which  follows  the  list  of  constants 
specifies  in  the  units  of  the  code  (the  meter,  millisecond,  megagram 
system)  for  each  zone  the  radius  "R"  (meters)  ,  particle  velocity  "U" 

(meters/millisecond) ,  temperature  "TEM"  (1CT  °X) ,  specific  volume 

3  3  3  10  2 

"VL"  (m  /megagram  or  cm  /g n)  ,  pressure  "PR”  (jerks/m  =  10  dynes/cm  ), 

and  internal  energy  "EG"  (jerks/megagram  =  10^  ergs/gra).  A  vestige 

of  code  checking  interests  are  the  next  two  columns  labeled  "KP"  and 

"KM".  These  are,  respectively,  the  opacities  at  zone  boundaries, 

using  the  density  and  the  material  designation  (and  so  the  opacity 

prescription)  of  the  zone  just  ahead  of  the  zone  boundary  KP  = 

K.(T.,V.  ,)  and  just  behind  the  boundary  KM  s  k.(T.,V.  .  Since 

j  J  j  J  J" T! 

this  example  does  not  include  radiation,  opacities  are  of  no  interest 

and  have  been  left  zero,  as  have  luminosities  in  the  last  column 

labelled  "EL". 


The  mass  increments  or  elements  are  listed  as  "DMASS"  in  the 


next  to  the  last  column  of  the  initial  values  table.  The  first 

column  shows  a  spacing  between  zones  of  one  centimeter  (0.01  m)  and 

3 

the  specific  volume  of  909.1  cm  /gn  corresponds  to  a  density  of 
-3  3 

1.1x10  gn/ cm  so  that  the  mass  elements,  which  in  plane  geometry  are 


just  the  product  of  the  zone  dimension  times  the  density,  become 
l.lxlO-5. 


Listed  below  the  table  of  initial  values  are  such  factors  as 
the  initial  time  increments  and  others  which  have  some  arbitrariness 
of  choice  and  so  should  be  selected  at  the  outset.  The  time  incre¬ 
ments  during  the  problem  running  can  be  controlled  automatically  by 
the  stability  conditions,  but  the  initial  values  must  be  chosen 
specifically.  In  this  case,  DT  stands  for  the  average  of  the  current 

and  just  previous  time  increment  (At*1)  and  is  taken  as  half  the 

current  choice  as  if  the  previous  value  were  zero.  As  discussed 
earlier,  the  value  of  the  initial  time  step  (DTP)  has  been  chosen 
as  At  2  =  2x10  msec. 

If  the  problem  involves  the  ingestion  of  mass  or  of  new 
zones  as  it  progresses,  then  some  information  must  be  supplied  as 
to  where  zones  are  to  be  doubled  and  what  size  zones  are  to  be  added. 
Under  MASS  ADD  INFO,  JO  =  5  indicates  that  we  have  chosen  to  combine 
the  fifth  and  sixth  zones  when  new  zones  are  needed  (and  then  sequen¬ 
tially  the  next  two  zones,  etc.).  By  JOS  =  0  and  J0M  =  23  we  have 
specified  that  when  JO  has  advanced  to  j  =  23  it  is  to  be  set  back 

to  j  =  0.  The  size  of  the  added  zones  is  given  by  DR.  When  DR  is 

positive,  it  indicates  directly  the  thickness  of  the  added  zone, 
such  that  in  plane  geometry  &n=pAR,  where  p  is  the  density  of  the 
last  zone  (at  j=JMAX) .  When  DR  is  given  as  a  negative  number,  it 
indicates  a  fractional  increment,  as  a  fraction  of  the  previous 
radius  or  the  last  position  value  (Rjmax) »  so  that  for  this  example, 
the  first  added  zone  will  have  a  thickness  AR  =  DR*R^q  =  0.0076923x1.3 

=  0.01  m. 


The  set  of  X's  listed  under  PERCENTS  are  not  percentages  but 
are  fractional  numbers  used  in  tests  of  the  smallness  of  the  change 
in  computed  quantities  relative  to  the  initial  or  final  value  of 


P  '1 


-31. 


that  quantity.  XI,  X2,  and  X3  are  associated  with  convergence  rou¬ 
tines  in  the  radiation  diffusion  by  implicit  method,  and  are  set  to 
zero  in  this  strictly  hydrodynamic  example.  X4  3  0.4x10  indicates 
that  a  variable  being  determined  in  GETVAR  has  been  found  to  be  con¬ 
sistent  with  the  determining  values  through  the  equation  of  state  to 
a  fractional  accuracy  of  at  least  4  parts  in  a  million. 

In  problems  where  zones  are  added  and  combined  automatically 
many  times,  there  is  the  possibility  of  choosing  JO,  JOS,  and  JOM 
such  that  some  region  of  the  problem  becomes  too  coarsely  zoned. 

A  check  or  control  on  the  maximum  size  to  which  any  one  zone  can 
grow  is  provided  in  the  use  of  X5  since,  before  two  zones  are 
combined,  their  combined  width  is  compared  with  X5  times  the  lar¬ 
gest  dimension  or  radius  in  the  problem.  In  this  case,  the  selec¬ 
tion  of  X5  =  0.125  guarantees  that  no  zone  can  become  larger  than 
one  eighth  of  the  largest  radius.  The  last  fraction,  X6,  is  the 
convergence  test  for  energy  compatibility  (in  the  energy  conserva¬ 
tion  equation  of  the  ROA  routine)  with  pressure.  Thus  on  successive 

evaluations,  the  internal  energy  shows  a  change  of  less  than  one 

-3 

part  in  ten  thousand  (for  the  value  of  X6  =  0.1x10  ). 

In  this  example,  as  often  is  the  case,  most  of  the  zones  in 

the  problem  are  inactive  initially,  and  need  not  be  computed  until 

some  signal  propagates  into  them.  Since  it  is  wasteful  to  compute 

through  them,  a  floating  boundary  condition  is  set  up  which  determines 

which  will  be  the  last  zone  to  be  calculated  on  each  cycle.  That 

last  zone  is  denoted  as  "JHAT",  which  in  this  problem  is  started 

at  3.  To  advance  JHAT  when  needed,  a  test  is  made  on  the  temperature 

(if  subroutine  JHTT  is  used)  or  the  particle  velocity  (if  subroutine 

JHTU  is  used)  at  that  last  zone  (j  =  JHAT)  against  a  constant  Z2. 

Whenever  the  temperature  (or  velocity)  equals  or  exceeds  Z2,  JHAT  is 

increased  by  unity,  and  one  more  zone  is  computed.  In  this  example, 

we  have  chosen  to  test  on  velocity  (using  subroutine  JHTU),  and  Z2 

-4 

has  been  taken  to  be  10 

The  desired  number  of  active  zones  is  limited  by  the  constant 
JL,  such  that  whenever  JHAT  reaches  JL,  either  another  zone  must  be 
added  while  two  other  zones  are  combined  (thus  keeping  JL  constant), 
or  a  special  boundary  condition  is  applied,  such  as  a  free  or  fixed 
boundary. 
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The  constant  Z1  is  similar  to  Z2  in  that  it  determines  the 
threshold  temperature  for  adding  another  zone  to  the  radiation 
diffusion  part  of  a  calculation.  Since  this  example  has  no  radia¬ 
tion  flow,  Z1  lias  been  set  to  zero,  but  could  have  any  value.  Sim¬ 
ilarly,  JSTAR,  which  denotes  the  last  zone  for  radiation  diffusion, 
has  been  chosen  zero,  but  is  of  no  consequence  to  this  calculation. 

The  last  cycle  to  be  computed  is  denoted  as  NF,  and  is  here 
chosen  as  614. 

A  list  of  the  subroutines  used  in  the  Executor  follows  the 
Generate  input  and  starting  data  print-out. 

The  print-out  for  the  actual  execution  of  the  problem  begins 
with  a  title  (TEST  1.  HYDRO  ONLY.  IDEAL  GAS),  and  then  follows  a 
list  of  the  initial  values  of  the  selected  variables  displayed  in 
the  format  chosen  for  those  zones  of  index  J  £  JHAT  4-  3.  The  units 
chosen  for  this  test  problem  are  the  internal  calculation  units. 

The  particular  parameters  chosen  for  output,  and  the  order  of  output 
from  left  to  right  is  zone  number  (j) ,  radius,  particle  velocity, 
density,  temperature,  internal  energy,  pressure,  artificial  viscosity, 
and  mass  per  zone.  The  artificial  viscosity  is  a  convenient  indi¬ 
cator  of  compressions  or  shocks.  The  masses  are  constants  of  the 
motion  in  this  Lagrangian  system,  but  with  the  later  periodic  com¬ 
bining  and  adding  of  zones,  its  listing  simplifies  monitoring  of 
zoning  and  makes  any  disparities  in  adjacent  mass  increments  more 
readily  identifiable. 

Following  the  initial  value  listing  is  a  line  of  information 
for  the  first  cycle,  a  type  of  output  which  is  presented  for  every 
cycle.  Listed  from  left  to  right  in  the  internal  units  of  the  pro¬ 
gram  are  the  cycle  number  (n) ,  the  time  at  the  end  of  the  n-th  cycle 
(milliseconds),  the  time  increment  for  that  cycle  (At  2) ,  LAMBDA 
(the  maximum  value  of  the  artificial  viscosity  stability  function), 
JLAM  (the  zone  number  of  the  largest  value  of  LAMBDA),  OMEGA  (the 
normalized  Courant  stability  conditions),  JOMEGA  (the  zone  number  of 
the  largest  OMEGA  value),  GAMMA  (the  radiation  diffusion  stability 
control  maximum  value  -  not  used  in  this  pure  hydrodynamics  problem) , 
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JGAM  (the  zone  number  of  the  most  critical  value  of  the  radiation 
stability  condition),  JO  (the  next  zone  at  which  combining  will  take 
place),  JSTAR  (the  largest  zone  through  which  radiation  diffusion  will 
be  calculated,  i.e.,  the  outer  boundary  of  the  radiation  diffusion 
-  zero  in  this  problem,  since  there  is  no  radiation),  JHAT  (the  last 
zone  for  which  hydrodynamics  will  be  calculated,  i.e.,  the  outer 
boundary),  and  IC  (an  iteration  counter  used  in  the  implicit  radia¬ 
tion  routine  -  zero  i..  this  problem)  . 

Outputs  are  listed  for  the  first  three  cycles  as  an  aid  in  code 
checking  and  to  demonstrate  the  cycle-by-cycle  progress  of  the  finite 
difference  method.  Note  that  after  the  first  cycle  the  kilobar  bounda 
ry  pressure  (listed  at  j=0)  causes  some  movement  in  the  first  ( j =1) 
zone.  This  shows  up  as  a  non-zero  velocity  at  the  j=0  boundary  and 
as  an  increase  in  density  in  the  first  zone.  Corresponding  increases 
in  temperature,  internal  energy  and  pressure  in  that  zone  are  also 
indicated,  and  because  it  is  a  compression,  some  artificial  viscosity 
shows  up. 

On  the  second  and  third  cycles,  further  growth  of  the  movement 
is  evident  as  the  density  continues  to  increase  in  the  first  zone  and 
some  compression  reaches  into  the  second  zone.  The  very  small  and 
negative  velocities  that  appear  on  the  second  and  third  cycles  are  a 
consequence  of  (and  a  measure  of)  the  truncation  error.  Rounding  the 
last  figure  of  the  pressures  in  adjacent  zones  slightly  differently 
causes  velocities  of  this  small  magnitude. 

Note  that  the  stability  conditions  have  allowed  the  time  incre¬ 
ment  to  increase  by  9/8ths  on  the  second  cycle,  but  have  reduced  At 

-4 

by  8/9ths  six  times  to  a  value  of  .98654x10  on  the  third  cycle  to 
conform  to  the  stability  restriction  from  the  growing  artificial  vis¬ 
cosity  -  indicating  a  growing  shock  in  the  first  zone.  The  value  of 
LAMBDA  is  near  unity,  v/hile  that  of  OMEGA  is  still  quite  small,  indi¬ 
cating  that  the  dominant  stability  is  the  viscosity  or  shock  criterion 
(LAMBDA)  rather  than  the  Courant  or  sound  speed  condition  (OMEGA) . 

By  cycle  10,  conditions  in  the  first  zone  are  well  on  their  way 
toward  representing  a  shock  corresponding  to  the  sudden  onset  of 
pressure  we  have  exerted  on  the  boundary.  Between  cycle  3  and  10  JHAT 
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has  increased  from  4  to  6  as  more  zones  are  set  in  motion.  The  density 
in  the  first  zone  is  now  nearly  twice  its  original  value. 

By  cycle  50,  the  shock  is  formed  and  is  moving  away  from  the 
boundary.  Pressures,  densities,  temperatures,  internal  energies  and 
velocities  are  all  settling  down  to  nearly  constant  values  behind  the 
front.  At  succeeding  times  (e.g.,  cycles  90,  130,  170,  210,  and  250) 
all  these  quantities  are  within  a  percent  or  two  of  a  constant  value 
except  for  density,  temperature,  and  internal  energy  in  the  first 
zone.  The  first  zone  or  two  are  in  this  example  somewhat  anomalous, 
since  they  experienced  a  sudden  onset  of  pressure  -  not  a  shock.  The 
"definition"  of  a  shock  in  such  numerical  schemes  using  artificially 
smeared  fronts  is  one  in  which  several  zones  of  spread  are  necessary 
for  normal  propagation.  When  a  boundary  or  initial  condition  prescribes 
a  more  rapid  change  or  steeper  gradients  than  are  normally  propagatable , 
the  excessive  heating  of  multiple  or  superimposed  shocks  is  a  natural 
consequence.  Once  a  proper  shock  is  developed,  the  appropriate  Hugoniot 
values  are  generated. 

The  slight  oscillations  behind  the  shock  cause  small  compressions 
and  small  artificial  viscosity  values.  A  linear  viscosity  term  might 
be  used  to  further  damp  such  oscillations  if  desired.  The  last  cycle 
run,  cycle  614,  has  pressures  as  shown  in  Fig.  3  in  comparison  with 
the  analytical  exact  solution  (presuming  a  shock  to  have  existed  from 
the  outset) .  The  slight  lag  in  the  peak  or  shock  front  for  the  cal¬ 
culated  pressure  profile  might  have  been  eliminated  by  a  set  of 
initial  conditions  which  more  nearly  represent  the  traveling  shock 
including  initial  particle  velocities  as  well  as  pressures  in  the 
first  few  zones  and  at  the  boundary  itself. 

The  special  display  of  cycles  263  and  264  allow  a  comparison  of 
data  just  before  and  just  after  combining  zones  5  and  6  into  a  single 
zone  at  5.  Note  that  on  cycle  264  the  mass  at  j=5^  (listed  on  line 
j=6)  is  the  sum  of  the  masses  at  lines  6  and  7  of  cycle  263.  The 
velocities,  densities,  energies,  etc.,  are  recomputed  so  as  to  conserve 
momentum  and  both  kinetic  and  internal  energy  between  the  two  zones 
and  the  new  single  zone.  Mass  conservation  is  automatic  in  the  simple 
addition  of  masses.  After  combining,  all  the  outer  zones  are  shuffled 
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down  to  a  zone  number  one  less,  and  a  new  mass  zone  is  added  at  the 
largest  (right-most)  zone  boundary. 

This  simple  test  case  problem  takes  about  one  minute  for  execu 
tlon  on  the  RAND  machine  combination  7040/7044  IBM. 


V 
*•  A 


°3 


Radius  (m) 


Fig. 3— Calculated  pressure  profile  compared  with  exact  value 
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HAROLD  TEST  1. 
ICEAL  GAS 


EQUATIONS  OE  STATE  FOR  THE  GENERATOR. 

FUNCTION  FPICOI ( E « VI 
FP 1001*  .4*E/V 
RETURN 
END 

FUNCTION  FEIC0KE.V1 
FEIOOl*  •  I39*E 
RETURN 
END 


EQUATION  OF  STATE  FOR  THE  EXECUTOR. 

SUBROUTINE  PE T( MAT ,T . V ,P  ,E  .  J *C) 
P  *  .4*E/V 
RETURN 
END 

DENSITY  BOUNDARY  CONDITION 

SUBROUTINE  R80UND  <TDUM,RHO) 
*COMMON  /  IKA2/ 

COMMON  /VLC/  VLII) 

RHOsl./VU  JMAX) 

RETURN 

ENO 


* 


See  page  255  for 


/IKA2/  definition. 
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IV.  RADIATION  EXAMPLE 


A  somewhat  more  complex  example  may  help  to  demonstrate  the 
radiation  aspects  of  the  program.  This  second  example  will  use 
spherical  symmetry,  radiation  diffusion  by  the  implicit  formulation, 
single  precision,  analytic  equations  of  state  and  opacities,  two 
materials,  grey-body  radiation  loss,  and  a  different  choice  of  output 
variables  and  units . 

The  physical  situation  chosen  to  demonstrate  the  interplay  of 

radiation  and  hydrodynamics  is  that  of  air  surrounding  an  aluminum 
12 

sphere  in  which  10  calories  are  released.  This  energy  source  is 
confined  to  the  innermost  one -fifth  of  the  aluminum  mass  and  is  introduced 
uniformly  in  time  over  one -tenth  of  a  microsecond.  The  mass  of 
aluminum  is  taken  as  100  pounds.  Although  this  suddenly  heated  metal 
ball  is  not  clearly  a  good  model  for  an  exploding  nuclear  device,  it 
will  serve  well  here  to  illustrate  the  essential  features  of  the  pro¬ 
gram  in  dealing  with  transient  radiation  flow  problems  where  hydro¬ 
dynamics  also  becomes  important. 

The  air  and  the  aluminum  are  characterized  by  analytic  formulae 
for  the  equations  of  state  and  opacities  and  are  presented  in  the 
listings  at  the  end  of  this  section.  The  analytic  forms  for  air  are 
particularly  complex,  and  can  lead  to  excessive  running  time  for  some 
problems,  since  the  equations  are  computed  through  many  hundreds  of 
times  for  most  cycles.  The  alternatives  are  to  use  simpler  approximate 
fits  (this  one  is  good  to  5%  almost  everywhere)  or  to  use  tabular  forms. 
The  formulae  for  aluminum  used  here  are  quite  approximate  but  also 
fairly  simple. 

The  GDR  subroutine  computes  sources  and  sinks.  In  this  example, 
it  generates  the  initial  energy  (at  a  constant  rate  for  a  fixed  time 
interval) ,  and  also  calculates  a  grey-body  radiation  loss  in  the  air 
which  (by  choosing  an  input  option  of  IRAD=7  or  4)  is  computed  using 
a  special  fit  to  the  emissivity  of  air.  A  choice  of  IRAD=6  or  3  allows 
the  subroutine  to  calculate  this  grey-body  loss  with  the  Rosseland 
mean  free  path  of  whatever  material  is  exposed.  This  grey-body  loss 
has  the  form 
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D  =  oR<6"1>T4(At)(Z«A)/(/?*n),  (74) 

in  which  a  is  the  Sefan-Boltzman  radiation  constant,  here  equal  to 
-4  2  4 

5.67x10  jerks /meter  /millisecond/10  degrees  Kelvin,  and  \  is 

either  the  Rosseland  mean  free  path  or  the  emission  mean  free  path 

for  air.  £R  is  the  zone  thickness,  R^-R^  ^  for  the  corresponding 

mass  £m.  ,  .  There  is  a  further  multiplicative  factor  when  air  is  the 
J  “3 

outer  region  (IRAD  =  4  or  7)  which  is  an  approximation  to  the  cold 
air  transmission  cutoff  in  the  ultraviolet  (at  1860  Angstroms) .  In 

4 

units  of  the  code  (temperature  T  in  10  degrees  Kelvin)  this  factor 
is : 

f  =  25/(25  +  3. 5xT2  +  T3).  (75) 

The  Generate  print -out  is  similar  to  that  for  the  first  example, 
but  now  it  is  necessary  to  include  a  radiation  stability  constant. 

The  implicit  scheme  in  theory  needs  no  limit  on  time  step  size,  but 
some  limit  is  necessary  in  practice  both  to  avoid  too  many  iterations 
per  cycle  and  to  avoid  exceeding  convergence  domains  which  frequently 
seem  to  stem  from  the  complexities  of  the  equation  of  state  fits. 

While  the  radiation  front  is  building  or  when  it  is  crossing  a  dis¬ 
continuous  boundary  (between  regions) ,  it  is  prudent  to  limit  the 
stability  constant  C5  to  a  value  of  about  1.5,  but  afterwards  a  much 
larger  value  is  more  economical.  While  too  large  a  value  necessitates 
too  many  iterations  per  cycle,  too  small  a  value  restricts  the  size 
of  the  time  increment  without  much  reduction  in  number  of  iterations. 
The  total  number  of  passes  through  the  iteration  loop  in  advancing  a 
given  amount  in  problem  time  is  a  rough  measure  of  running  time 
economy,  since  the  bulk  of  the  computing,  particularly  with  complex 
equations  of  state,  is  done  in  such  loops  (e.g.,  ROC,  RDI,  ROD  loop).  ■ 
The  iteration  procedure  for  convergence  is  arranged  to  become 
progressively  less  exacting  as  the  number  of  iterations  increases. 
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After  five  iterations  the  test  on  the  fractional  change  of  lumin¬ 
osities  is  dropped  and  only  temperature  changes  are  monitored  for 
subsequent  iterations.  (See  listing  or  flow  diagram  for  the  RDI 
subroutine.)  After  ten  iterations,  the  fractional  change  of  tempera¬ 
ture  is  allowed  to  be  four  times  larger  (where  initially  6T/T  is 
tested  against  X3,  now  the  test  is  against  4*X3) ,  After  15  itera¬ 
tions  the  test  is  made  against  20*X3,  after  20  iterations  against 
100*X3,  and  after  25  times  around  the  loop,  the  test  on  the  itera¬ 
tive  change  in  temperature  relative  to  the  temperature  itself  is 
that  it  be  less  than  1000*X3.  At  the  twenty-fifth  iteration  a 
trouble-shooting  print  routine  is  activated,  and  most  of  the  numeri¬ 
cal  values  for  parameters  calculated  in  the  relaxation  loop  are 
listed  for  all  subsequent  iterations  until  relaxation  or  until  the 
29th  loop  when  the  problem  dies. 

Settling  for  less  accuracy  when  many  iterations  are  required  in 
finding  a  self-consistent  set  of  temperatures  and  luminosities  im¬ 
plies  that  the  procedure  is  to  some  extent  self  correcting,  and  that 
subsequent  cycles  will  not  suffer  from  such  a  single  or  occasional 
.  reduction  in  accuracy.  When  a  real  instablity  is  in  the  making,  such 

*  is  not  the  case,  but  then,  a  cycle  or  two  later,  a  stop  is  inevitable, 

|  All  of  the  test  constants,  XI  through  X6, must  be  specified  for 

! 

-  I  this  test  case  with  radiation  and  with  added  zones.  The  XI  test 

'  1 

’  occurs  in  the  ROE  subroutine  in  finding  new  temperatures  in  the 

hydrodynamic  regions  beyond  the  radiation  diffusion  region  and  is 
similar  to  the  GETVAR  routine  which  uses  X4.  Both  XI  and  X4  should 

be  taken  to  have  the  smallest  values  (2x10  )  of  any  of  the  test 
constants.  Both  require  that  temperatures  derived  for  some  value 

of  energy  and  density  will  be  correct  (consistent)  to  two  parts  in 
a  million.  The  X2  test  occurs  in  the  implicit  iteration  loop  for 
luminosity  convergence,  and  is  taken  here  to  be  four  times  larger 
than  XI  and  X4,  The  X3  test  determines  the  temperature  convergence 
in  the  same  implicit  scheme,  but  is  chosen  here  to  have  a  value 
twice  that  of  XI  or  X4.  The  test  of  convergence  in  the  first  guess 
for  temperatures  and  luminosities  prior  to  entering  the  implicit 
iterative  loop  uses  X6  and  as  such  is  allowed  to  be  100  times  larger 

I 
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than  XI.  The  X5  constant  controls  the  size  of  the  doubled  zones. 

If  a  pair  of  zones  about  to  be  merged  iito  a  single  zone  (CZR  sub¬ 
routine)  promises  to  be  thicker  than  X5  times  the  largest  radius 
active  in  the  problem  (radius  at  JHAT) ,  then  that  doubling  is  not 
allowed.  With  a  value  of  0.1,  no  zone  will  be  allowed,  through 
doubling  of  zones,  to  become  larger  than  10%  of  the  maximum  radius. 

In  the  RAND  version  (but  not  the  all-FORTRAN  version),  a  set  of 
variables  and  the  units  in  which  they  will  be  presented  are  listed 
at  the  beginning  of  the  output.  The  zero-cycle  listing  which  follows 
shows  the  initial  conditions  to  include  no  motion,  normal  293  degree 
Kelvin  (20 °C)  temperature,  14.63  psi  ambient  pressure  in  the  air 
(something  more  than  2  kilobars  in  the  aluminum  initially),  1.2  kilo¬ 
grams  per  cubic  meter  air  density,  etc.  INTENG  stands  for  internal 

2 

energy,  DYNPRS  for  dynamic  pressure  (pu  /2) ,  ARTVIS  for  artificial 
viscosity,  LMNSTY  for  luminosity,  ROSMFP  for  Rosseland  mean  free 
path,  NETPWR  for  net  power  as  represented  by  the  mean  free  path 
times  the  special  gradient  of  luminosity  (A • (L^ -L. _j) / (R^ -R^  ^)) ,  and 
RALORT  for  radiation  loss  rate  as  carried  by  half  the  THETA  term 
or  as  D*£M. 

Note  that  on  the  first  cycle,  although  the  stability  numbers  are 
all  small,  convergence  requires  three  iterations  as  indicated  by 
iteration  counter  (IC) . 

Note  that  the  energy  check  print-out  after  the  first  cycle  shows 
some  internal  energy  in  the  first  region,  indicating  that  the  source 
term  is  active.  The  slight  amount  of  kinetic  energy  in  both  regions 
stems  from  the  small  velocity  that  arises  at  the  region  interface 
(pressure  in  the  aluminum  being  initially  35,360  psi)  . 

The  first  cycle  print-out  shows  the  velocity  at  the  interface, 

the  corresponding  dynamic  pressures,  the  rise  in  the  temperature, 

internal  energy,  and  pressure  in  the  first  zone  where  the  energy  is 

being  introduced  as  well  as  changes  in  luminosity,  mean  free  path 

and  net  power.  In  the  first  zone,  the  radiation  loss  rate  shows  a 

19 

negative  value  (-10  cal/sec) ,  which  is  the  rate  of  input  of 
source  energy.  Some  slight  radiation  loss  occurs  at  the  interface 
also,  but  is  unrealistic  and  negligible. 
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The  next  two  cycles  show  the  radiation  flowing  into  the  second 
zone  as  the  source  continues,  and  the  energy  increases.  These  con** 
secutive  cycle  listings  do  not  provide  adequate  data  for  easy  code 
checking,  since  each  cycle  has  several  iteration  loops  within  it. 

In  the  RBI  subroutine,  however,  is  a  call  for  printing  of  much  of 
the  iterative  loop  function  values ,  and  it  can  be  altered  to  print 
on  every  pass.  (It  is  ordinarily  set  to  print  only  after  25  itera¬ 
tions,  to  help  in  diagnosing  a  failure  to  converge.) 

By  the  fourth  cycle  the  number  of  iterations  has  risen  to  7,  but 
the  stability  conditions  (LAMBDA,  OMEGA,  and  GAMMA)  are  all  less  than 
unity,  so  the  At  is  still  allowed 'to  increase.  By  the  eleventh  cycle, 
the  radiation  stability  measure  (GAMMAB  with  C5  =  1.5)  has  risen  so 
that  the  next  cycle  must  be  at  a  smaller  time  increment.  At  this 
same  time,  the  radiation  has  heated  the  fourth  zone  enough  to  include 
it  in  the  radiation  diffusion  cycle  (JSTAR  increases  from  3  to  4) . 

As  more  and  more  energy  is  injected  into  the  first  zone,  the  tempera¬ 
tures  rise,  and  the  luminosities  increase. 

Although  some  compression  is  generated  in  the  second  zone  by  the 
high  pressure  in  the  first  zone,  and  rather  high  velocities  result 
(about  2000  ft/sec)  in  the  first  zone  after  the  second  cycle,  the 
time  is  still  too  short  for  a  change  in  the  density  to  show  up  in  the 
first  four  figures  listed.  On  the  first  cycle  print -out,  small  arti¬ 
ficial  viscosity  pressures  show  up  in  all  the  aluminum  zones.  These 
are  spurious,  and  are  due  to  the  slight  difference  in  round-off  be¬ 
tween  the  densities  as  calculated  in  the  Generator  and  as  computed 
here  in  the  hydrodynamic  subroutine  (HYD) .  These  viscosity  terms  in 
turn  lead  to  the  small  velocities  of  cycle  2  for  the  same  aluminum 
zones,  although  the  first  and  last  aluminum  zones  have  larger  veloci¬ 
ties  due  to  the  pressure  gradients  between  the  heated  first  zones  and 
the  second  zone  and  between  the  aluminum  and  air. 

By  the  third  cycle,  slightly  more  than  5%  of  the  energy  has  been 
injected,  and  it  is  still  residing  in  the  first  zone  of  aluminum. 

The  energy  check  sums  (labeled  E,  K,  W,  Y,  W-Y+Y)  after  cycle  3  show 
this  clearly.  They  also  show  that  no  energy  has  been  radiated  from 
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aluminum  to  air  or  out  of  the  air  as  yet  (the  Y  terms  being  still 
negligible),  nor  has  any  net  work  been  done  on  the  air  (W-Y+Y  for 
region  2) .  The  net  work  on  region  one  is  just  the  energy  introduced 
into  the  aluminum. 

By  cycle  10,  somewhat  more  than  a  third  of  the  total  energy  to 
be  introduced  is  now  in  the  aluminum  ("none"  yet  in  the  air).  The 
time  steps  have  been  allowed  to  increase  to  nearly  three  times  the 
original  choice.  However,  the  GAMMA,  term  is  growing  rapidly  as  the 
radiation  begins  to  flow,  and  by  the  12th  cycle  it  forces  the  At  to 
decrease.  A  careful  look  at  the  output  for  cycle  10  will  reveal  the 
beginning  of  some  rapid  changes,  for  which  smaller  time  steps  are 
perhaps  desirable.  The  innermost  aluminum  zone  has  a  temperature  of 
more  than  15  million  degrees,  the  velocity  is  more  than  Kr  ft/sec, 
the  densities  are  beginning  to  change,  the  pressure  is  high  and  the 
luminosity  is  rising.  The  Rosseland  mean  free  path  is  larger,  and 
the  net  power  flux  is  approaching  a  few  percent  of  the  rate  of  intro¬ 
duction  of  energy.  Essentially  nothing  is  going  on  in  the  air,  as  yet. 

By  the  thirtieth  cycle,  the  time  step  (DT)  has  dropped  again  to 
what  it  started  as.  All  the  energy  has  just  been  put  in  by  the  source 
term,  and  on  the  next-  and  succeeding  cycles  no  more  energy  will  be 

-4 

pumped  into  the  first  zone.  Since  the  time  did  not  quite  reach  10 
on  the  thirtieth  cycle,  but  will  exceed  that  value  on  the  next  cycle, 
not  quite  all  the  Intended  energy  was  introduced  -  lacking  about 
A  little  energy  is  now  leaking  out  into  the  air  by  radiation  diffusion 
(Y  —  1.37.)  and  a  little  hydrodynamic  work  has  been  done  on  the  air 
(W-Y+Y  =  0.814342E-03) .  The  outside  of  the  aluminum  sphere  is  just 
getting  up  to  high  velocity,  and  is  still  moving  at  about  half  of  the 
velocity  of  the  hot  interior.  None  of  the  air  is  compressed,  but  the 
first  air  zone  is  already  up  to  a  tenth  of  a  million  degrees. 

In  the  next  thirty  cycles  the  time  advances  to  .159511  micro¬ 
seconds,  and  some  eighteen  percent  of  the  energy  flows  into  the  air 
by  radiation  diffusion.  This  is  shown  by  the  energy  check  Y  term  for 
region  1  at  cycle  60  (Y  =  .185566).  Essentially  all  of  this  energy 
is  in  heat  and  shows  as  internal  energy  in  air  (E  =  0.185538),  with 
the  corresponding  kinetic  energy  for  air  (K  =  0.0315925)  being  derived 

- -  19 

Recall  that  the  source  was  chosen  as  a  fixed  rate  (-10  cal/sec 

for  10-7  sec),  so  that  the  exact  energy  could  have  been  injected  by 

fixing  the  time  step  or  by  calling  for  an  output  at  that  time. 
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from  the  work  done  by  the  expanding  aluminum.  The  work  term  for  air 
corresponds:  W-Y+Y  =  0.0315648. 

The  cycle  60  output  shows  that  the  aluminum  temperatures  have 
fallen,  and  the  luminosities  and  mean  free  paths  are  also  decreasing. 
At  the  same  time,  the  velocities  are  increasing.  The  air  is  now  hot 
out  to  about  seven  feet,  and  so  a  "fireball"  has  appeared. 

At  cycle  103  a  special  print  occurs  as  directed  by  the  GETVAR 
subroutine.  Whenever  the  iteration  count  in  the  convergence  loop 
which  derives  a  temperature  from  a  new  internal  energy  exceeds  10, 
the  print  occurs,  listing  the  zone  number  (16  in  this  case),  the 
iteration  count,  the  variables  (0VAR  and  VAR,  in  this  case  since  NV 
is  2,  OVAR  is  the  temperature  and  VAR  is  the  specific  volume),  the 
function  being  worked  with  FN  (in  this  case  the  energy,  since  MF  =  2)  , 
and  the  desired  final  value  for  the  function  F. 

When  large  changes  in  variables  are  taking  place,  the  combined 
use  of  complicated  equation  of  state  functions  and  the  Newton's 
Method  may  lead  to  trouble.  The  Newton's  Method  employs  local  slopes 
(derivatives)  to  approximate  the  change  needed  in  the  variable  in 
order  to  arrive  at  the  correct  function  value.  Occasionally,  as  has 
happened  here,  a  pair  of  points  on  the  functional  curve  are  struck 
such  that  the  slopes  from  each  return  the  variable  to  the  previous 
value  on  the  next  step,  i.e,,  the  oscillation  between  two  values  is 
stable,  and  convergence  is  never  achieved.  To  avoid  such  a  needless 
catastrophe,  the  GETVAR  subroutine  kicks  the  convergence  loop  just 
once  on  the  16th  iteration  by  taking  the  next  guess  as  the  average 
of  the  current  and  the  previous  guess.  As  is  evident  in  this  case, 
such  a  joggle  can  quickly  lead  to  convergence. 

The  termination  of  the  run  at  cycle  131  represents  10  minutes 
of  execution.  The  next  run  was  chosen  to  have  C5  =  10,  which  allows 
a  substantial  increase  in  the  time  steps  since  the  radiation  diffusion 
stability  (using  C5)  has  been  restricting  the  time  steps.  After  re¬ 
generating  with  this  change,  the  time  steps  increase  (by  9/8ths)  every 
cycle  for  twenty  cycles,  or  by  nearly  an  order  of  magnitude  At  (from 
.47E-05  at  a=132  to  .44E-04  at  n-152)  . 
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The  termination  at  cycle  197  represents  another  10  minutes  of 
running  time.  For  the  following  run,  C5  was  increased  to  20,  but 
already  the  shock  forming  in  the  first  zones  of  region  2  has  raised 
the  shock  stability  limit  (LAMBDA)  so  that  radiation  limits  as  de¬ 
fined  by  C5  and  GAMMA  cease  to  restrict  the  time  steps.  GAMMA  soon 
remains  equal  to  \  (its  initial  value  when  searching  for  the  largest 
value)  and  At  is  reduced  by  the  LAMBDA  criterion  as  the  shock  con¬ 
tinues  to  grow. 

By  the  last  cycle,  (n=259)  some  307.  of  the  energy  has  diffused 
from  region  1  into  region  2,  and  a  shock  is  beginning  to  grow  at  the 
outer  edge  of  the  radiation  sphere  in  region  2  as  well  as  from  the 
rapid  expansion  at  the  inner  edge.  Carried  to  later  times,  the  hydro- 
dynamic  expansion  would  soon  dominate,  and  only  slight  radiative 
changes  would  be  seen.  Eventually,  the  grey-body  radiation  loss 
routine  (CDR)  would  reduce  the  energy  remaining  behind  the  shock  and 
lower  the  total  net  energy,  but  the  radiation  diffusion  will  all  but 
cease,  and  could  be  eliminated  at  late  stages  without  serious  error. 

An  appropriate  choice  of  the  critical  temperature  Z1  will  keep  JSTAR 
from  growing  beyond  the  hot  region  and  will  thus  restrict  the  calcula¬ 
tion  of  radiation  diffusion  to  just  those  inner  zones  that  remain  hot 
after  the  shock  passes. 
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HANOI. 0  EXAMPLE  2— NU.27--IMP.  — S.P.  10/6/66— C5«l. 5  IN  KEG.  1*2 


ANALYTIC  EOLATION  OF  STATE  FOR  ALUMINUM 
FUNCTION  FP1000I T. VI 

FP 1000*1 36. 1 K* 1 920.*  T**2I *T  > / 1 V*  t T**2*I «08E*A> ) 

RETURN 

END 


FUNCTION  FE1000IT.VI 

FE1COO*IT*C.27£*1/<T*I1.».12/V**.25>*116. !/’/•♦. 251 )*16A9.*T  **2 )  / 
t  I ICO.aTI 
KF  TURN 
FNO 


FUNCIIUN  FK1000IT.VI 

FX10G0*.225E»5  ♦  ( .2Et 7*1 1 .♦.237E-16U **5 1 *V**l -l >>/ 1 1 .♦.B 17E-17* 
1  T**6I  ♦  I. A23E»10*T**2*V**I-. 511/11. ♦.02*T**3*.176E~6*T**6> 

RETURN 
END 


AIR  EQUATIONS  OF  STATE  FOR  GENERATE  AND  EXECUTE. 


A I  CAT A 

PAIR 

CUNTRL 

A. 6*5 

A 

DEC 

.7778E-lo,.602E-3..50972E-3.2.20..971EtA 

n 

OEC 

A. <8. 4. 2.0.0. 8.0.2 

AIK 

CONTRL 

M.  X4+  9 

M 

oec 

1.1. 2, A. 2. 3. 3. A. 10 

N 

DEC 

6.2.3.8.3.6.6.6.16 

XO 

uec 

2.‘236E»5.A.975£fA.l.272E*6,3.rt92E*7.8./30E*A,A.89E^9. 

ETC 

2.77AE*4.1.547E*10.0 

XI 

OFC 

-t.5C9E+4,-5.463E*3.-l.24oE*5.-2.295E»7,3.190E*3, 

ETC 

7. 12  5E*8.-7.8A9E«'3.-l.67lE»8.1.619Em 

X2 

OEC 

0.0.-3.C53F+3 .0.0.0 .0.-6.617EA7 .0 

X3 

DEC 

5.4l2O27.l.609E»7,2.6l5E  +  7,3.330E«-l4.4.976E*5.8.368EU7, 

ETC 

3.2A3E»7,8.A9Et9.7.275E*18 

X4 

UFC 

C.C.l.034E*6,C.-l.883E*3.0.-5.494E*6,4.0E*8,0 

END 

FUNCTION  FPIC02I T»V) 

DIMENSION  X ( 5) 

LOGICAL  RC 

COMMON  /PAIR/A1 5) *Q (5) 

RC  =  ,  FALSE. 

ETA  =  773.JS5/V 

ETALUG  =  ALCGIETAI 

TAU  =  T*  EXP(  ~C.C86*E  TALOG) 

SIGMA  =  TAG  / ( 0.9746  ♦  0.0254  *  EXP  1-.21556*ETALQG)  I 

IF  ( TAU.LE .1.0)  GO  TO  2 

TAU=  1  .  O/TAU 

SIGMA=1. O/SIGMA 

RC  *  .TRUE. 

2  12  =  TAU**2 

XI 2  I  *  T2*TAU 
X( 1  )  *  XI 2 ) **2*T2 
XI 3 )  =  X(l) 

X ( 4 )  =  SIGMA** I 2 
XI  5 )  =  X  ( 4  J 
AC  =  1.0 
DO  1  I  *  1,5 

IF(.NUT.RC)  AC  =  AC  *  8  I  I)*(  A  ( 1 1  *XI  I  )  )  / 1 1.  ♦(  All  l*X  (  I ) ) ) 

IF(RC)  AC  *  AC  ♦  A(I)*B(I)  /  (XII)  ♦  AID) 

1  CONTINUE 

C  SET  FUNCTION  VALUE 

FP 1002=  2. 8688*AC*T/V 
RETURN 
END 


T- 


i 


FUNCTION  FE1002IT.V) 

COMMON  /AIR/MI9)  ,M9).X0(9)  .X1I9I  ,X2I9)  ,X3I9),X419) 
OIMFNS ION  V 1 16) 

LOGICAL  HC 
AC  *  .FALSE. 

P>FP I002I T.V) 

EE  »  ALOG 1 7  73 . 395/V) 

EEE  *  E£**2 

Yl  1  I  >U.01375E-04/P)  *  EXPl  1.0553*EE) 

OHY  *  1.  -  YU) 

C«  7.AE-C2  -  3. ?64E-03*EE 
IF  IEE.GT.C.O)  C  «  C  -,C05852*EEE 

2  0«  2.357E-C2  -  9.255E-03*Efc  -  2.52£-04*EEE 

U  «  OPY**2  *  (YIl)-C)  »  lY«l)-0) 

H  >  1C0.*Y 1 1 )  ♦  1.0 

YY  *  YU) 

IF  IYY.LE.1.0)  GO  TO  10 
RC  «  .TRUE. 

YU)  «  l./YY 

10  Y(  2 )  «  YU  )*YU ) 

YI  3  )  *  YU)*Y12) 

YU)  *  YI2)*YI2) 

VIS)  *  YU)*YU) 

YI 6 )  «  YI 3 ) *Y( 3) 

Y I  8  )  *  Y(M*YUI 
71 10)«  YI 8) *Y(2 ) 

YI 16 )»  YI 8)*Y<  8) 

TP  «  0.0 

00  3  I  >1.9 

IP  «  MU) 

IN  «  Nil) 

IFII.E0.6)  XII6I-SIGNIXI 16)  .EE) 

ENUM  «  IXOII)  ♦  XI II)  *  EE  ♦  X2II)  ♦  EEE  )  *CMY 
IF  II.E0.8)  ENUM  >  ENUM  *  U 
EDEN  »  1X2(1)  ♦  X4II)  *  EE-) 

IF  II.E0.3)  EOEN  >  EDEN  *  W 
IF  IRC)  GC  TO  ll 
ENUM  «  ENLM*Y1IM) 

EOEN  ■  EDEN*Y( IN)  ♦  1.0 
GO  TO  12 

11  INM  »  IN  -  IM 

ENUM  »  ENIM  *  YIINM) 

EOEN  »  EOEN  ♦  YIIN) 

12  TP  «  TP  f  ENliH/EOEN 

3  CONTINUE 

EMU  »  TP  ♦  1.  ♦  1 27. * YY  ♦  3.)  /  I5.*YY  ♦  1.) 

C  FUNCTION  NAME  HERE 

FE10C2-  P* V* IEMU-1 . 0) /2 . 0 

RETURN 

END 
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SUBROUTINE  ECHECK 

COMMON  /I KA2/  ERSI6.10),  ESI6.10),  TMRSIb.lCI.  TMSIfc.lG).  RSI  101 

1  JStlOi.  NR  SI  101  .  N2SI1CI.  RRGI15),  JREGI151,  C1I15I,  C2I15), 

2  C3I15).  CAI151,  C5115J,  E0I15),  EHIMC6),  EMAXIbl,  KMlN(b), 

3  KMAXI6I.  PHI N ( 6  I  •  PMAXI61,  TMINI61,  TMAXl 6 1 •  UH1NI6),  UMAXIbl, 
ATE  Ml N 1 6) .  TEMAXI6 1 •  TKHIN16),  T  UMAX  I  A ) t  TPMINI6I.  TPHAXI 6 ) •  NKMAX 

5  TTMINI6).  TT  HAXI6 1 ,  TUKtNIb),  T UMAX! 6  )  •  NEMIN,  NFMAX,  NKHIN, 

6  NPM1N.  NPHAX,  NT  HI N»  NTHAX.  NUMiN,  NUMAX,  NKSRCf,  NZSKCE, 

7  JC.  JOS.  JOM,  ORCi  21.  22.  JL.  XI.  X2,  X3.  XA,  X5.  X6,  NS. NT , 

8  UNCGS .  UNMKS .  TM,  OT ,  OTP.  JSTAR.  JHAT,  JHAX.  DELTA.  REGNO.  J2. 
9NKEG.NEaS.RH!N.KMAX. IRAQ 

COMMON  /l KA2B/  NDHtb).  NHC ( 6  1 .  OTHIbl,  CTHIb)  »  NDPI 6 ) .  NPC(b), 

1  0TPRI6I,  CTPI6).  NDCKI6),  NCKC(b).  UTCKI61,  CTCKI6). 

2  N.  1CK,  1H,  IP.  1CK2.  IH2,  1P2.  TMCKL,  TMHL .  DTS.  DTPS.  IC. 

3  IRETRN,  TMPL .  NPRT .  NENCK.  NH1ST 
COMMON  /UC/  Ulll 

CCMMON  2EGC/  EG  I II 
COMMON  /OMASSC/  UMASS(l) 

COMMON  /CKCOH/  CKY115) 

CCMMON  /SUH2C  /  SUM2 ( 15 ) 

COMMON  /6GMC  /EGMl) 

INTEGER  DELTA,  REGNO,  UNCGS.  UNMKS 
REAL  KM1N.  KMAX.  KP,  KM,  KDM 
OIMENSICN  CKLU5I,  CKKUS).  CKWI15) 

00  10  1 «1 ,NREG 
CKEIll-O. 

CKK 111*0. 

10  CKW(I)*G. 

IR-1 

J*l 

15  SUM1-0. 

SUM3«0. 

20  SuKl«SUMl4.5A0MASSlJ»ll*(EGCJ*ll»EGMU*m 
SUN3*SUM3+DMASSt J*1 ) *IU(  J I  **2HJ(  J*l I **2  l 
J  *  J4  1 

IFIJ.LE. JREGIIRII  GO  TO  20 
IFIOELTA.E0.3I  CKC»3. 0036-3 
IF (DELTA. EO. 2)  CKC-1.5015E-3 
IFIDCLTA.EO.il  CKC»2.389E-A 
CKE : I R  J ■ I SUM1-SUM2 ( IRI I *CKC 
CKKdRl-SUM?  *CKC/A. 

CKWI1KI»CKE(IR) *CKK ( I R) 

35  iK*IR4l 

IFI IR.LE.NREG)  GO  TO  15 
I  R*1 

PRINT  7000 

7000  F0RMAT(1H0,8X,1HE,15X,IHK,15X,IHW«15X,1HY«13X, 5HW-Y  +Y , 1 3X, AH JR EG ) 
AO  CKYO-CKYUR-l) 

IFIlK.EO.il  CKY0«0. 

KTfcRM»CKR(  IRl-CKYO+CKYURI 

PRINT  7001  .CKEIIR) , CKK (IR) ,CKW(  IRl.CKYI 1R) .UTERM, JRbGI 1R) 

7001  FORMA  T ( 1H  5616 .6 , 1 10  ,622 .6  ,E16 .6 ) 

1R*IRU 

IF ( 1 K.LE.NKEG)  GO  TO  AO 
CKES-O. 

CKKS-O. 

CKWS*0. 

DO  5C  IR-i.NREG 
CKES-CKES+CKEIIRI 
CKKS«CKKS*CKKURl 
50  CKMS-CKRS4CKRUR) 

PRINT  7001,  CKE S .CKKS.CKWS 

RETURN 

END 


■  X. 


*«£■*&■■»»»  . . 
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All  of  the  preceding  information  is  documentation.  Any  amount 
or  type  of  information  desired  for  this  purpose  is  allowable.  It 
goes  between  the  $ENTRY  GMAIN  card  and  the  START  data  card.  The 
only  restriction  is  that  there  must  be  no  $  in  column  1.  In  the 
case  of  a  subroutine  which  you  would  like  to  include,  the  $IBFTC 
(or  $IBMAP)  card  must  be  removed.  If  a  $  is  encountered  the  program 
stops  and  you  get  the  message  "END  OF  DATA  ENCOUNTERED  ON  FTC09." 
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V.  DESCRIPTION  OF  "GENERATE"  PROGRAM 


INTRODUCTORY  REMARKS 

The  Generator  section  of  HAROLD  reads  data,  with  sufficient  in¬ 
formation  to  define  a  problem,  from  cards.  It  then  generates  all  the 
constants  and  zone  variables  for  the  problem  defined  and  writes  them 
on  the  history  tape,  FORTRAN  logical  tape  12,  as  cycle  0. 

The  Generator  is  also  used  to  change  data  when  restarting  a 
problem  from  a  given  cycle  on  the  history  tape.  Any  constants  may 
be  changed,  but  the  zoning  and  zone  variables  may  not  be  changed. 

DATA  DESCRIPTION 

The  Generator  section  of  HAROLD  has  the  following  data  cards. 
Those  which  are  required  are  so  indicated  by  an  asterisk.  The  cards 
should  be  in  the  given  order  if  present. 

*START 
*HIST0RY 
*PRINT  OUT 
*ENERGY  EDIT 
*TIME  STEF 

UNITS  (RAND  version  only) 

GEOMETRY 

RMIN 

EOS 

^REGION 

ZONE 

(any  other  REGION  and  ZONE  cards  required) 

ZSOURCE 

RSOURCE 

BOUNDARY 

COMBINATION 

ZTEMPERATURE 

-PERCENTS 

*ENDATA 
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Any  number  of  72  column  BCD  cards  may  be  included  before  the 
START  card.  They  will  be  printed  at  the  beginning  of  the  generate 
print-out  for  documentation  purposes.  Note  that  a  $  may  not  occur 
in  column  1. 

The  FORTRAN  version  requires  that  all  documentation  cards  be 
preceded  by  a  card  with  the  number  of  documentation  cards  to  follow 
in  (16)  FORMAT,  i.e.,  a  right  adjusted  integer  in  cols.  1-6. 

START  Card 

NS  is  the  cycle  number  of  the  first  cycle  (0  for  generating 
new  problems,  non-zero  for  restarting)  and  NF  is  the  number  of  cycles 
desired.  These  parameters  may  occur  in  either  order.  IHYD  is  0 
for  problems  with  radiation  and  non-zero  for  those  with  hydrodynamics 
only. 

HISTORY  EDIT  Card 

This  card  controls  the  frequency  of  history  edits  by  cycle 
number  or  by  time.  History  edits  will  be  taken  every  ND  cycles 
until  cycle  NC  is  reached,  then  the  next  ND-NC  pair  will  be  used; 
or  history  edits  will  be  taken  every  DT  msecs,  until  time  equals  CT, 
then  the  next  DT-CT  pair  will  be  used.  A  maximum  of  six  pairs  may 
be  specified.  These  parameters  must  be  sequential,  i.e., 

ND=  NC=  ND=  NC=  etc.,  or 

DT=  CT=  DT=  CT=  etc. 

The  two  types  of  pairs  may  not  be  intermixed. 

PRINT  OUT  Card 

This  card  controls  the  frequency  of  print  outs.  The  parameters 
are  identical  to  those  of  the  HISTORY  EDIT  card, 

ENERGY  EDIT  Card 

This  card  controls  the  frequency  of  energy  edits.  The  para¬ 
meters  are  identical  to  those  of  the  HISTORY  EDIT  card. 

TIME  STEP  Card 

0  h 

The  first  DT  is  At  in  msecs  and  the  second  is  At  in  msecs. 
Usually  At*"1  is  equal  to  ^At2.  (Atn=  ^(Atn  ^  +  At1*^)). 
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UNITS  Card 

The  data  on  all  input  cards  following  the  UNITS  card  may  be 
specified  in  either  MMEGMS  (meters,  megagrams  and  milliseconds)  or 
in  GGS  units.  If  no  UNITS  card  is  present,  MMEGMS  (the  units  in 
which  the  calculate  .  is  done)  is  assumed.  (See  column  two  of  the 
output  data  description  form,  p.  253,  Sec.  VI,  for  the  details  of 
MMEGMS  u>.  ts.)  (Not  applicable  to  a  11 -FORTRAN  HAROLD.) 

GEOMETRY  Cards 

Either  PLANE,  SPHERICAL  or  CYLINDRICAL  geometry  may  be  specified. 
If  no  GEOMETRY  card  is  present,  plane  geometry  is  assumed. 

RMIN  Card 

R^  may  be  specified.  If  it  is  not,  R^  =  0  is  assumed. 

EOS  Card 

This  card  is  required  only  if  tabular  equations  of  state  are 
used.  It  establishes  the  correspondence  between  the  material  numbers 
of  regions  using  tabular  equations  of  state  (i.e.,  0,  1,  2,  3,  4  or 
5)  and  the  equations  of  state  to  be  used  in  those  regions.  The 
idno's  are  the  identification  numbers  of  those  equations  of  state 
on  the  equation  of  state  tape  prepared  by  TABCOE.  For  example,  if 
a  problem  were  to  use  the  tabular  equations  of  state  for  aluminum  and 
air,  and  these  equations  of  state  were  identified  on  the  equation 
of  state  tape  prepared  by  TABCOE  as  513  and  700  respectively,  one 
might  assign  the  material  no.l  to  aluminum  and  no ,4  to  air.  Then 
the  EOS  card  would  be: 

cols.  1  13  28  |43 

EOS  1=  513  4=  700 

REGION  and  ZONE  Cards 

REGION  cards  are  used  to  specify  the  material  of  a  region,  all 
constants  of  a  region  and  those  zone  variables  which  are  consistent 
throughout  the  region.  ZONE  cards  are  used  to  specify  only  those 
variables  which  are  not  consistent  throughout  a  region. 

A.  Material  Specification. 

m  is  the  material  number  of  the  region.  If  the 
material  is  specified  by  an  analytic  equation  of  state  one  of  the 
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macerial  numbers  1000,  1001,  ...,  1005  must  be  used.  If  it  is 
tabular  one  of  the  material  numbers  0,  1,  ...,  5  must  be  used.  If 
the  equation  of  state  is  analytic  and  of  the  form  P(E,V),  T(E,V) 
rather  than  P(T,V),  and  E(T,V) ,  the  material  number  2000,  2001,  ..., 
2005  must  be  used.  The  material  numbers  2000,  ...,  2005  are  only 
permitted  for  problems  with  hydrodynamics  only. 

B.  Number  of  zones  specified  by  a  ZONE  card. 

n  is  the  number  of  zones  specified  by  the  ZONE  card. 

C.  Specification  of  radii. 

The  R.  .  ,  .  may  be  specified  on  REGION  cards  by 
J  j=l,jmax 

inputting  (R.^,  the  outer  radius  of  region  number  IR,  with  either 

JT  ,  the  correspondiig  j ,  or  ARTD,  the  uniform  zone  width.  Specifying 
IK  lK 

JT  and  AR  is  also  sufficient.  The  labels  for  these  are  R=,  J= 

XK  XK 

and  DR=.  The  radii  may  also  be  specified  on  the  ZONE  cards  by  in¬ 
cluding  either  R  ,  the  outer  radius  of  zone  number  j ,  or  AR..,  the 
J  J 

width  of  zone  j ,  which  will  be  added  to  R^  to  yield  R^ .  The  labels 

for  the  ZONE  card  are  R=  and  DR=.  If  R^  is  specified  on  a  ZONE 
card,  n  must  be  1. 

D.  Specification  of  V.T.P.E  and  K. 

It  is  necessary  to  establish  the  values  of  T  and  V,  the 
independent  variables,  in  order  to  determine  P,  E  and  K.  Any  of 
these  variables  which  are  consistent  throughout  a  region  may  be 
specified  On  the  REGION  card.  Those  which  are  not  must  be  speci¬ 
fied  on  ZONE  cards .  T  may  be  specified  through  the  use  of  the  label 
T=.  V  may  be  input  directly  with  the  label  V=.  It  is  also  possible 
to  input  An  which  determines  V  through  the  equation: 


R6 


R6 

Rli 


6  Am 


‘j-% 


(76) 

(see  also  (12)) 


where  6  is  1,  2  or  3  for  plane,  cylindrical  or  spherical  geometry 
respectively.  The  label  for  this  is  M=.  Also  p  may  be  input  with 
the  label  RH=,  and  V  is  determined  by 


V  =  1/p. 


I 
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Elther  of  these  independent  variables  may  be  omitted  if  one  of  the 
three  dependent  variables  P,  E  or  K  is  specified.  If,  for  example, 

P  and  T  are  input,  the  equation  of  state  P=*P(T,V)  may  be  solved  for 
V.  Any  other  pair  consisting  of  a  dependent  and  an  independent 
variable  is,  of  course,  equally  permissable.  If  the  equation  of 
state  is  analytic, neither  independent  variable  need  be  specified,  for 
if  any  two  dependent  yariables  are  input, T  and  V  are  determined.  For 
example,  if  P  and  E  are  input  the  equations  of  state 

P=P(T ,V) 

and  (77) 

E=E(T ,V) 

may  be  solved  simultaneously  for  T  and  V.  If  the  equation  of  state 
is  tabular,  inputting  of  two  dependent  variables  is  not  permitted. 

If,  for  hydrodynamics -only  problems,  equations  of  state  of  the  form 
P(E,V),  T(E,V)  are  used,  the  above  discussion  holds  if  one  reads  T 
for  E  and  E  for  T. 

E.  Specification  of  initial  velocity. 

The  initial  velocity  of  all  zones  in  a  region  or  those 
zones  being  defined  by  a  ZONE  card  may  be  specified  through  the  use 
of  the  label  U=  on  the  REGION  or  ZONE  card  respectively.  If  U  is  not 
specified,  U=0  is  assumed, 

F .  Other  labels  on  REGION  cards. 

Cl  and  C2  are  used  in  the  artificial  viscosity  equation 
in  the  subroutine  HYD: 


giir^u  -  w 


<vj-t +  vj_^  (At^)2  (j 


Rn+1  +  R1*1 

(Rj  +  Rj-1} 2(6-1) 


G2IR^j 


.  yn 

.  j  ~h _ j  * 


(al$o(13)) 
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C3  is  the  Courant  Stability  constant  in  the  equation: 


“xR 

C20  "  rri-1  /A  .2 


(79) 


C4  is  the  artificial  viscosity  stability  constant  in  the  equation: 


30 


<!k  - cSr 

vfj 

j-% 


(80) 


C5  is  the  radiation  stability  constant  in  the  equation: 

,  SEn+i 

rv4-1  4 

C5TDAm.  ,  (K&n).  — 

x  =  IR  jHfv  J  aTp£ 

10  8(R"fl)2(5-1)(Tf1)3  ' 


(81) 


C3,  C4  and  C5  are  used  in  the  subroutines  TSR,  TSREXP  and  TSRIMP, 

Cl  is  typically  6. 

C2  ranges  typically  between  0  and 

C3  is  typically  1.6  but  may  have  to  be  increased  for  non- 
gaseous  substances. 

C4  is  typically  16  but  may  be  increased  to  reduce  the  time  step. 

C5  is  1  for  explicit  radiation  problems  and  equal  to  or  greater 
than  1  for  implicit  radiation. 

EO  is  the  initial  energy  in  the  zones  of  a  region.  It  is  also 
used  in  the  calculation  for  obtaining  a  value  SUM2(IR)  in 
GENRAT  for  the  energy  edit  routine  in  ECHECK  and  it  is  used 
in  CZR  when  combining  of  zones  requires  a  new  value  for 
SUM2(IR) .  It  may  be  equal  to  0.  If  riot  input,  EO  is  assumed 
to  be  equal  to  0.  EO  may  also  be  input  as  any  negative 
number.  This  results  in  EO  being  established  as  equal  to 
the  energy  of  the  right-most  zone  in  the  region.  The 
units  of  EO  are  jerks /mega  gram  (10^  ergs/gm)  . 
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RSOURCE  and  ZSOURCE  Cards 


These  cards  specify  an  energy  rate  sink  or  source  in  a  region 
(RSOURCE)  or  zone  (ZSOURCE).  The  sink  or  source  is  a  step  function 
with  a  maximum  of  six  steps.  The  energy  specified  by  each  E=,  TM= 
pair  is  inserted  into  the  region  or  zone  until  time  =  TM.  Then  the 
next  pair  is  used.  The  j 's  and  r-s  are  the  zone  and  region  numbers 
into  which  the  energy  is  to  be  inserted.  See  subroutines  RGSRFN 
and  ZNSRFN  (p.  282)  for  sources  or  sinks  which  are  not  step  functions. 
The  E  is  in  MMEGMS  (jks/meg/ms) ,  viz,  10^  ergs/gm/msec.  In  the 
RAND  version  only,  one  can  also  input  sources  in  CCS  units  (erg/gm/ 
sec).  Sources  are  negative;  sinks,  positive. 


BOUNDARY  Cards 

Boundary  conditions  for  U,P,E,T,  and  K  may  be  specified  at 

either  R  .  or  R.  , ,  .  These  are  introduced  as  step  functions  with 
~k  jmax+% 

a  maximum  of  six  steps.  The  first  value  specified  on  the  boundary 

card  is  used  until  time  equals  the  first  TM,  at  which  time  the 

second  pair  is  used.  If  no  TM  is  specified  on  the  boundary  card, 

the  value  of  U,P,E,T  or  K  specified  will  be  used  throughout  the 

problem.  MIN  corresponds  to  a  boundary  condition  at  j=-%  and  MAX 

0  n 

to  a  boundary  condition  at  j=jmaxf^.  If  R^  =  0,  Uq  =  0  is  assumed 
for  all  n,  and  only  a  T  ^  boundary  condition  is  permitted  at  j=-%. 
COMBINATION  Cards 

Zones  may  be  combined  and  new  zones  added  at  the  right  hand 
boundary.  This  maintains  a  constant  number  of  zones,  but  permits 
the  introduction  of  additional  mass  into  the  problem  during  execu¬ 
tion.  Zones  are  combined  between  j=jos  and  j=jom.  The  labels  JS= 
and  JM=  correspond  to  those  two  parameters.  The  first  two  zones  to 
be  combined  will  be  the  zones  j=jo+l  and  j=jo+2.  If  DR  is  positive, 
it  is  the  £R  of  the  zones  to  be  added.  If  it  is  negative,  its  abso¬ 
lute  value  is  the  percentage  of  R^  which  is  to  be  used  as  the  £R  of 
the  zone  to  be  added.  Combination  of  zones  begins  when  j  reaches 
j£  which  is  input  on  the  ZTEMPERATURE  card.  Thus,  as  the  shock 
front  moves  to  the  right,  zones  will  be  added  in  front  of  it,  and 
zones  behind  the  shock  front  will  be  combined. 
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Another  form  of  combination  of  zones  is  permitted.  In  this 
case  we  have  a  pressure  and  density  specified  at  the  right  hand 
boundary  of  the  problem.  These  are  specified  through  the  sub¬ 
routines  PBOUND  and  RBOUND  (see  p.  331,  Sec.  VI  )  .  In  this  case 
the  shock  front  is  moving  left,  and  it  is  desired  to  maintain  the 
boundary  conditions  at  a  more  or  less  constant  R_  .  Zones  are 
inserted  at  the  right  hand  boundary  when  it  is  possible  to  insert 

between  R?  and  R?  a  zone  of  the  same  mass  as  the  right-most 
jmax  jmax 

zone,  at  the  density  specified  by  RBOUND.  A  zone  will  also  be  in¬ 
serted  if  R?  <  the  DR  specified  in  the  COMBINATION  card.  In  this 
jmax  — 

case  the  added  zone  mass  will  be-  exactly  enough  to  make  the  new 


R.  *  R.  . 
jmax  jmax 


The  flag  indicating  that  the  form  of  combination  is 


desired  is  a  negative  J  whose  absolute  value  is  the  total  number  of 

a 

zones  to  be  permitted  in  the  problem.  JO,  JOS,  JOM  have  the  same 
meaning  as  in  the  previous  case.  Combining  starts  when  j1  reaches 
|j  zones,  'j  will  always  equal  Jma>c  in  this  case  since  all  zones 
must  always  be  calculated,  so  Z2  must  be  chosen  accordingly. 
ZTEMPERATURE  Card 


Zones  with  temperatures  greater  than  or  equal  to  Z2  will  be  in¬ 
cluded  in  the  hydrodynamics  calculation.  Zones  with  temperatures 
greater  than  or  equal  to  .Zl^  will  be  included  in  the  radiation  calcu¬ 
lations.  However  hydrodynamic  calculations  will  be  done  for  all 

zones  which  are  included  in  the  radiation  calculations,  i.e.,  "j  is 

* 

forced  to  be  greater  than  j  .  When  T .  is  greater  than  or  equal  to 
Z2,  i.e.  when  j  =  j£,  combining  and  adding  of  zones  is  initiated. 

JL=  is  the  label  for  j£.  If  this  card  is  omitted,  Z1=Z2=-1,  and 
jl=jmax+l,  are  assumed.  For  hydrodynamics -only  problems  Z2  may  be 
a  velocity  rather  than  a  temperature.  Zone  j  is  included  in  the 
calculation  if  U.  ,  >  Z2.  If  this  is  chosen, deck  JHTU  must  be  used 
instead  of  deck  JHTT  in  both  the  Generator  and  Executor  sections. 
PERCENTS  Card 

The  X's  are  convergence  criteria  with  the  exception  of  X5, which 
is  a  control  on  the  relative  size  of  doubled  zones. 

/A  * 

XI  is  the  convergence  criterion  for  zones  with  j  >  j  >  j  .  It 
occurs  in  subroutine  ROE.  T  is  considered  to  have  converged  when 
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6Tj<Xl*Tj.  (82) 

X2  is  the  L  convergence  criterion  in  subroutine  RDI.  L  is  con¬ 
sidered  to  have  converged  when 

6Lj<X2-Lj.  (83). 

X3  is  the  T  convergence  criterion  in  subroutine  RDI,  T  is  con¬ 
sidered  to  have  converged  when 

bT.<X3-T.  (84) 

X4  is  the  convergence  criterion  for  T  in  subroutine  GETVAR.  T 
is  considered  to  have  converged  when 

&Tj<X4-Tj.  (85) 

X5  is  a  limit  on  the  relative  size  on  doubled  zones.  Only 
zones  which  meet  the  requirement 

Rjo+2  "  Rjo  £X5"R/>>  (86) 

will  be  doubled, 

X6  is  the  convergence  criterion  for  <E  in  ROA,  ROAEXP  and 
ROAIMP.  E  is  considered  to  have  converged  when 

6Ej<X6-Ej.  (87) 

The  suggested  values  for  XI  through  X6  are: 

XI  =  .2  x  10"5 

X2  =  .8  x  10-0 

X3  =  .4  x  10"5 

X4  -  .2  x  10"5 

X5  =  .1 

X6  =  ,2  x  10"3 

ENDATA  Card 

ENDATA  must  be  the  last  card. 


Format  for  all  Generate  data  cards  in  the  FORTRAN  version  is  (A6,  F6.0,  4(A3,  E12.6)) 

All  variable  names  must  be  left  adjusted,  i.e.,  the  information  in  cols.  13-15,  28-30,  43-45,  58-60 
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wise  to  Input  these  variables  as  numbers  of  the  form  X.l.  For  example  J-30 ,1  becomes  J»30  vie 
internal  truncation. 


RESTARTING  WITH  ALTERING  OF  ANY  CONSTANTS 


It  is  possible  to  alter  any  of  the  constants  without  regenerat¬ 
ing  the  problem.  To  do  this,  one  takes  advantage  of  the  restart 
option  of  the  Generator  section.  Alteration  of  zone  variables  or 
rezoning  of  the  problem  is  not  permitted  however. 

Restarting  may  be  done  from  any  cycle  on  the  history  tape. 

The  START  card  must  be  present  for  restarts.  The  problem  will 
be  restarted  from  the  first  cycle  with  a  cycle  number  greater  than 
or  equal  to  NS  or  the  last  cycle  on  the  tape  if  NS  is  very  large. 

NF  must  also  be  specified.  NS  may  not  be  0  for  a  restart.  To  re¬ 
start  from  cycle  0  set  NS  to  any  negative  number. 

HISTORY  EDIT,  PRINT  OUT,  ENERGY  EDIT,  and  TIME  STEP  cards 
may  be  included  as  desired. 

GEOMETRY,  RMIN  and  EOS  cards  may  not  be  included. 

REGION  cards  may  be  included  to  alter  Cl,  C2,  C3,  C4,  C5  and/or 
EO,  but  no  rezoning  or  redefining  of  zone  variables  is  permitted. 

The  m  on  restart  REGION  cards  is  the  region  number  of  the  region 
being  altered,  not  its  material  number. 

ZONE  cards  will  have  no  effect. 

RSOURCE  and  ZSOURCE  cards  may  be  included.  If,  however,  any 
RSOURCE  or  ZSOURCE  card  is  included,  all  the  source  cards  of  that 
particular  type  must  be  included,  not  just  the  one  to  be  added  or 
altered. 

BOUNDARY,  COMBINATION,  ZTEMPERATURE ,  and  PERCENTS  cards  may  be 
included  as  desired.  Only  those  constants  or  variables  which  are  to 
be  altered  need  be  specified. 

The  ENDATA  card  must  be  present. 

EQUATION  OF  STATE  (EOS)  HANDLING 

Equations  of  state  may  be  either  analytic  or  tabular  or  both. 

* 

There  may  be  a  maximum  of  six  of  either  type.  Those  regions  which 
have  materials  whose  equations  of  state  are  analytic  must  use  material 
numbers  between  1000  and  1005  inclusive;  those  which  have  materials 
whose  equations  of  state  are  tabular  must  use  material  numbers  be¬ 
tween  0  and  5  inclusive. 

*i.e.,  a  possible  total  of  12  unique  equations  of  state. 
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Analytic  equations  of  state  are  introduced  through  function 
type  subroutines  with  names  FPlOOx,  FElOOx  and  FKlOOx  for  P(T,V), 
E(T,V)  and  K(T,V)  respectively  where  x  is  one  of  the  integers  0, 
lt...  5.  Only  subroutines  with  names  corresponding  to  material 
numbers  1000  through  1005  on  REGION  cards  need  be  included.  For 
example,  if  the  material  number  1003  were  assigned  tc  ■»  particular 
region  having  an  analytic  equation  of  state,  the  form  of  the  sub¬ 
routine  calculating  P(T,V)  would  be 

1  8 
$IBFTC  FP1003 

FUNCTION  FP1003(T,V) 

FP1003  =  some  expression  using  T  and  V 

RETURN 

END 

and  the  form  of  the  subroutines  calculating  E(T,V)  and  K(T,V)  would 
be  similar.  Problems  with  hydrodynamics  only  do  not  require  the 
K(T,V)  function  subroutine  if  IHlfD  on  the  START  card  is  non-zero. 

For  problems  with  hydrodynamics  only,  a  variation  of  analytic 
equations  is  permitted.  Instead  of  providing  equations  of  state  of 
the  form  P(T,V) ,  E(T,V)  and  K(T,V),  the  two  equations  of  state 
P(E,V)  and  T(E,V)  may  be  used.  Regions  with  equations  of  state  of 
this  form  must  use  material  numbers  2000,  2001,  . ..,  2005.  The 
function  subroutine  calculating  P(E,V)  for  a  region  with  material 
number  20Qx  has  the  name  FPlOOx,  and  the  subroutine  calculating 
T(E,V)  has  the  name  FElOOx. 

For  tabular  equations  of  state  it  is  assumed  that  a  binary  tape 
has  previously  been  prepared  by  TABC0E  and  is  now  mounted  as  FORTRAN 
logical  tape  8. 

The  T's,  p's  and  interpolation  coefficients  for  equations  of 
state  with  idno 's  specified  by  the  EOS  card  are  read  into  storage. 

All  storage  which  is  not  used  by  subroutines  is  automatically  made 
available  for  tables  (RAND  version  only).  A11-F0RTRAN  users  must 
dimension  their  own  values  for  C  and  LIMIT  in  GMAIN. 

If  more  storage  space  is  required  for  equations  of  state  and  the 
problem  does  not  require  200  zones,  more  storage  can  be  made  avail¬ 
able.  See  subroutine  C0MSIZ,  page  12 7,  for  this  technique. 
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GENERATE  SECTION  COMMONS  ANO  INTEGER  GROUP  NOTES 


CN  THE  CONTINUATION  CARD  9  OF  COMMON  /IKA1A/,  LA8ELS  FOR  9,99,999 

1  ARE  IN  GENRAT •  STREAO,  REGNRO,  ZONGEN  ANO  PEX  ONLY.  RESTRT  USES 

2  9  AND  99.  ALL  OTHER  SUBROUTINES  CO  NOT  USE  *•  ♦*  OR  999  LABELS. 

3  LABELS  OEFINEO  AS  9.  RNAX.  99«N.  999-IHYO. 


THE  FOLLOWING  GROUPS  OF  CAROS  SHOULD  REPLACE  THE  COPHENTS  CAROS 
WHICH  ARE  USED  IN  THE  LISTINGS  FOR  THE  SUBROUTINES. 


THE  COHHGN  /IKAi/  GROUP  IS  AS  FOLLOWS 

COMMON  /IKAI/  CARC412)yNL4ByONVAi.«EVAL,KV4LyPVALyRHVALyRVALyTVALy 

1  UVALvWAL  tUZAL»TZAL«DMZAL»  VZAL«RHZAL«PZALf  EZAL*K2AL«ORf  FIELON* 

2  ERFLAG ,CYCSW,NZONE , JCRIG ,RGNSW  yZNSWCy ZGETSNyClSMCHyC3SWCH,C4SWCH , 

3  ORSWCKf EOSWCHyESWCHf JSWCHtKSWCHtMSWCHfPSWCH«RHSWCH tRSWCHf TSWCFf 

4  USWCH* VSWCHyORZWCHf  EZWCHyKZWCH  » MZWCHy PZWCHyRHZWCH yRZWCH, TZMCH  , 

5  UZWCH, VZWCH, ZNQSW,BDRY$W,BTYPE ,COMSW,ZTEMSW,PERCSW 


THE  COMMON  /IKA1A/  GROUP  IS  AS  FOLLOWS 


1  JS 

2  C3 

3  KM 
4TEM 
5  TT 


ES( 6, 10) «  TMRS(6«10) «  TMS56.10),  RS410), 
,  RRG  ( 15)  t  JREG(  15) ,  01115),  C2<15), 

E0(  15 )  »  EMIM6)  «  EMAXI6),  KMINI6), 

),  TMIN46),  TMAX  C6) *  UMIM6),  UMAX  (6  )  • 


8  UNCGS.  UNMKS,  TM,  OTy  OTP 

9  NREGy  NEOSy  RMIN, 9,99 ,999 


THE  COMMON  / IKA1B/  GROUP  IS  AS  FOLLOWS 

COMMON  /IKA1B/  NDH(6),  NHC(6),  DTH(6) ,  CTH(6)y  NDPC6),  NPCI6), 
DTPR  (6 )  •  CTPI6),  NDCK(fc)  ,  NCKC46),  OTCKU),  CTCKI6) 


INTEGER  GROUP  IS  AS  FOLLOWS 

INTEGER  F lELONyERFLAGyCYCSWyRGNSW y ZNSWC yZGETSWyClSWCH,C3SWCH y 

1  C4SWCHy0RSWCHyE0SWCHy ESWCH, PSWCHyRHSWCHyRSWCHyTSWCHyUSWCH, VSWCH, 

2  EZWCH, PZWCHyRHZWCHyTZWCHyUZWCH, VZWCHyZNQSWyBCRYSWyBTYPEyCOMSWy 

3  ZTEMSWyPERCSWyOELTA yREGNO yUNCGSyUNMKS 


•  ,4 
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SUBROUTINE  DESCRIPTION 

1.  COMSIZ 

2.  HOUWD 

3.  GMAIN 

4.  GENRAT 


5. 

STREAD 

6. 

RESTRT 

7. 

GYCRED 

8. 

THREAD 

/9. 

UNTRED 

10. 

GEOM 

11. 

RMREAD 

12. 

EOSNRD 

13. 

REOST 

■ 

14. 

REGNRD 

15. 

ZNGET 

16. 

GRIDGN 

17. 

ZONGEN 

• 

00 

H 

PEK 

19. 

FINDC 

20. 

ANEOS 

21. 

FPlOOx 

22. 

FElOOx 

23. 

FKlOOx 

24. 

GETVAR 

25. 

GTVRTB 

26. 

GETTV 

27. 

SOURCE 

28. 

BOUND 

29. 

COMB 

'30. 

TMPRD 

31. 

JHT 

32. 

PERG 

/33. 

GETLAB 

<o«W^V3 
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/34.  CONVRT 

j/35.  CHGWD 

36.  IKAERR 

37.  ALIBI 

Check  on  left  at  number  means  deck  is  not  present  in  FORTRAN  version. 

The  above  is  a  list  of  the  decks  which  compose  the  Generator 
section  of  HAROLD.  The  list  also  indicates  the  hierarchy  of  the 
subroutines  in  that  those  routines  to  the  left  call  those  to  the 
right  of  and  immediately  below  them.  GETLAB,  CONVRT  and  CHGWD  are 
called  by  several  of  the  subroutines,  and  PEK  is  used  by  more  sub¬ 
routines  than  ZONGEN.  The  order  of  subroutines  in  the  deck  Is  not 
important  with  the  following  exceptions:  COMSIZ  and  HOLWD  should 
come  first  and  ALIBI  should  be  last. 

Since  common  statements  for  most  of  the  subroutines  are  quite 
similar,  we  have  replaced  them  in  the  listings  by  comment  cards  which 
indicate  common  groups.  The  instructions  following  the  subroutine 
listings  describe  the  necessary  common  groups  to  be  included  in  each 
case. 

1.  COMSIZ 

COMSIZ  exists  to  give  the  user  control  over  the  amount  of 
storage  devoted  to  zone  variables.  SIZE  is  a  name  in  COMSIZ  which 
is  defined  as  follows : 

SIZE  EQU  202 

This  EQU  pseudo  operation  results  in  all  zone  variables  being 
dimensioned  202,  which  permits  200  zones  (storage  must  be  allowed 
for  boundary  conditions  at  j=-%  and  j=jmaxf^).  If  more  storage  space 
is  required  for  equations  of  state  and  the  problem  does  not  have  200 
zones,  SIZE  may  be  equivalenced  to  the  number  of  zones  in  the  problem 
plus  two.  170  storage  cells  are  saved  by  reducing  the  value  of  SIZE 
by  ten. 

This  subroutine  must  occur  first  in  the  Generator  deck  as  it 
defines  the  size  of  the  control  sections  for  zone  variables.  All 
other  subroutines  have  dummy  control  sections  dimensioned  1. 


, ’  *%•-;- 
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tlBFTC  COSIZG 

SUBROUTINE  COMSIZ 
COMMON  /RC/  K 1 202 ) 

COMMON  /UC/  U( 20? ) 

COMMON  /TEHC/  TEM1202) 
COMMON  /TAMC/  TAMI20?) 
COMMON  /VLC/  VL I  202 ) 

COMMON  /PRC/  PRI ?0?) 

COMMON  /EGC/  EG! 202) 

COMMON  /KPC/  KPI202) 

COMMON  /KMC/  KMI202) 

COMMON  /DMASSC/  DMASS ( 202 ) 
COMMON  /DMESSC/  DMESSI202) 
COMMON  /TEMSOC/  TEMSQI 202) 
COMMON  /TEM3C/  TEM3I202) 
COMMON  /TEM4C/  TFM4I202) 
COMMON  /KOMC/  KOMI  202) 
COMMON  /EtC/  ELI  202 ) 

COMMON  /MATC/  MAT  I  202) 
COMMON  /OC/  C I  20  ? ) 

END 


2.  HOUWD 

HOLWD  is  a  deck  of  labelled  COMMONS  containing  BCD  words 
necessary  for  interpretation  of  input  card  labels.  It  must  be  loaded 
second  so  that  the  COMMONS  will  be  properly  established.  It  is 
never  called. 

MBFTC  HOLWO  «EF 


SUBROUTINE  HOLKD 

COMMON 

/PNTB/ 

PRINTB 

COMMON 

/ZURC/ 

ZSOURC 

COMMON 

/RURC/ 

RSOURC 

COMMON 

/ERGY/ 

ENERGY 

COMMON 

/TE8S/ 

TIMEBS 

COMMON 

/UTSB/ 

UN  I T SB 

COMMON 

/PNEB/ 

PIANEB 

COMMON 

/CIND/ 

CYLIND 

COMMON 

/ZEBB / 

ZONEBB 

COMMON 

/RION/ 

REGION 

COMMON 

/SERI/ 

SPHERI 

COMMON 

/ STRB/ 

STARTS 

COMMON 

/HTQR/ 

HISTOR 

COMMON 

/DO/  OTQ 

COMMON 

/ BYBB/ 

BDRYBB 

COMMON 

/RNBR/ 

RMINBB 

COMMON 

/RXBB/ 

RMAXBB 

COMMON 

/CBIN/ 

COMB  IN 

COMMON 

/ZMPE/ 

ZTEMPE 

COMMON 

/PCEN/ 

PERCEN 

COMMON 

/ EATA/ 

ENDATA 

COMMON 

/BDEB/ 

BRODEB 

COMMON 

/CGB8/ 

CGSBBB 

COMMON 

/MKB8/ 

MKSBBB 

COMMON 

/NQ/  NSQ.NFQ 

COMMON 

/NEQ/  NCE,NDE,DTF,CTE 

'i. 
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COMMON  /8LNK/  BLANK 
COMMON  /RQ/  REQ 
COMMON  /JO/  JEQ 
COMMON  /VO/  VEQ 
COMMON  /DRQ/  DREQ 
COMMON  /UQ/  UEQ 
COMMON  /TQ/  TEQ 
COMMON  /MO /  MEQ 
COMMON  /RHQ/  RHEQ 
COMMON  /PO/  PEG 
COMMON  /EQ /  EEO 
COMMON  /KQ/  KEQ 
COMMON  /CIO/  C1EQ 
COMMON  /C2Q/  C2EQ 
COMMON  /C3Q/  C3EO 
COMMON  /CAQ/  C4EQ 
COMMON  /C5Q/  C5EQ 
COMMON  /EOQ/  EOEQ 
COMMON  /TMQ/  TMEO 
COMMON  /MNMX/  MINB8.NAXBB 
COMMON  /X1Q/  X1EQ 
COMMON  /X2Q/  X2EQ 
COMMON  /X30/  X3E0 
COMMON  /XAQ/  X4EQ 
COMMON  /X5Q/  X5EQ 
COMMON  /X6Q/  X6EQ 
COMMON  /ZIQ/  Z1EQ 
COMMON  /Z2Q/  Z2EQ 
COMMON  /JLQ/  ZJLEQ 
COMMON  /JMEQ/  ZJMEQ 
COMMON  /JSEO/  ZJSEO 
COMMON  /JZEQ/  ZJOEQ 
COMMON  /ESO/  EOS<7) 

DATA  PRINTB/6HPRINT  / 
DATA  ZS0URC/6HZS0URC/ 
DATA  RS0URC/6HRS0URC/ 
DATA  ENERGY/6HENERGY/ 
DATA  TIMEBS/6HTIHE  S/ 
DATA  UNITS8/6HONITS  / 
OATA  PLANEB/6HPLANE  / 
DATA  CYUND/6HCYUND/ 
DATA  Z0NEBB/6MZ0NE  / 
DATA  REG! ON/ 6HREG I ON / 
DATA  SPHERI /6HSPHER I / 
OATA  STARTB/6MSTART  / 
DATA  HIST0R/6HHIST0R/ 
OATA  0TQ/6M0T*  / 

DATA  BQRYBB/6HB0UN0A/ 
DATA  RMINBB/6HRMIN  / 
DATA  RMAXB6/6HRMAX  / 
DATA  C0MBIN/6HC0MBIN/ 
OATA  ZTEMPE/6HZTEMPE/ 
OATA  PERCEN/6HPERCEN/ 
OATA  ENDATA/6HENDATA/ 
DATA  BR00EB/6HMMEGMS/ 
OATA  CGSBBB/6HCGS  / 
DATA  MKSBBB/6HMKS  / 
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OATA 
OAT  A 
DATA 
DATA 
OATA 
DATA 
DATA 
OATA 
OATA 
OATA 
OATA 
OATA 
OATA 
OATA 
DATA 
OATA 
DATA 
OATA 
OATA 
OATA 
DATA 
DATA 
DATA 
OATA 
DATA 
DATA 
OATA 
OATA 
DATA 
OATA 
DATA 
OATA 
OATA 
DATA 
DATA 
1  6H0’ 
END 


NSQ,NFQ/6HNS»  ,6HNF 
NCE»NDE»0T6, CTE/6HNC 
8LANK/6H  / 

REQ/6HR*  / 

JE0/6HJ*  / 

VE0/6HV«  / 

DREQ/6H0R*  / 

UE«/6HU«  / 

TEQ/6MT*  / 

HEQ/6HH«  / 

RHEQ/6HRM*  / 

PEQ/6HP*  / 

EEQ/6HE*  / 

KE0/6HK*  / 

CIE0/6HC1*  / 

C2EQ/6HC2*  / 

C3EQ/6HC3*  / 

C4EQ/6HC4*  / 

C5EQ/6HC5-  / 

FOEQ/&HEO*  / 

TNEQ^HTM*  / 

MIiMBB*NAXBB/6HMlN  ,6HHAX 
XIE&/6HX1*  / 

X2EQ/&HX2* 

X3E0/6HX3* 

XAEQ/6«X4* 

X5EQ/6HX5* 

X6EQ/6HX6* 

Z1EQ/6HZ1* 

Z2EQ/6HZ2* 

ZJLEQ/6HJL* 

ZJSE0/6HJS* 

ZJ0EQ/6HJ0*  , 

ZJNEQ/6HJM*  / 

EOS( 1 )  ♦  EOS( 2 ) « EOS( 3) » EOS ( 4 ) »EOS  ( 
>  ,6H1«  ,6H2«  » 6H3*  » 


«  ,6HND«  t6HDT«  ,6HCT*  / 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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3A.  GMAIN  (All -FORTRAN  version) 

C  and  LIMIT  are  dimensioned  for  the  number  of  cells  required 
for  tabular  equations  of  state  being  used. 

3B.  GMAIN  (RAND  version) 

GMAIN  is  the  deck  in  which  execution  of  the  Generator  begins. 

Tt  is  also  the  entry  point  for  the  Generator.  It  determines  from 
* 

S.SLOC+4  the  address  of  the  first  location  not  used  by  the  program 
and  establishes  this  location  as  the  first  location  of  the  tabular 


* 


IBM  Systems  Reference  library  form  C28-6339,  1963,  p. 


59. 
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equation  of  state  coefficient  table.  It  also  determines  from  S.SLOC+3 
the  number  of  cells  required  for  I/O  buffers  and  from  this  it  calcu¬ 
lates  the  number  of  cells  available  for  this  coefficient  table.  This 
number  is  stored  as  LIMIT. 


tIBFTC  GMAIN  REF 

DIMENSION  C I  2000 ) 

LIMIT  =  2000 

CALL  K0LWD 

CALL  GENRATIC, LIMIT) 

CALL  EXIT 
END 

4.  GENRAT  (C, LIMIT) 

GENRAT  is  the  main  controlling  routine  of  tie  Generator.  It 
calls  subroutines  for  the  reading  and  interpreting  of  input  cards, 
writes  the  generated  problem  on  the  history  tape  and  prints. 


MBFTC  GENRAT  REF 

SUBROUTINE  GENRAT I C» L IMIT ) 

COMMON  CARDS  LABELED  /  I KA 1/ , / 1 KA 1 A/  AND  /IKA1B/  GROUPS  AND 
1  INTEGER  CARD  GROUP  TO  BE  "LACED  HERE 
REAL  KVAL,  KZAL,  KMIN,  KMAX,  KDM,  KP,  KM 
COMMON  /RC/  R ( I ) 

COMMON  /UC/  U(l) 

COMMON  /TEMC/  T E M (  i  ) 

COMMON  /TAMC/  TAM( 1) 

COMMON  /VLC/  VL (  1 ) 

COMMON  /PRC/  PR (  l ) 

COMMON  /EGC/  EG( 1 ) 

COMMON  /KPC/  KP { 1 ) 

COMMON  /KMC/  KM ( 1 ) 

COMMON  /DMASSC/  DMASS (  1 5 
COMMON  /DMESSC/  DMESS(l) 

COMMON  /TEMSQC/  TFMSQ(l) 

COMMON  /TEM3C/  TEM3( l) 

COMMON  /TEM4C/  TEM4( 1) 

COMMON  /KPMC/  KDM(l) 

COMMON  /ELC/  ELI  I) 

COMMON  /CKCOM/  CKY(15) 

COMMON  /KATC/  MAT ( I ) 

COMMON  /EOSCOM/  MEGS,  IDE0S(6),  I0R0ERI6),  IBEGT(3,6),  DUM, 
l  IBEGV ( 3 1 6 ) »  IB£GC( 3 ,6) 

COMMON  /STRB/  STARTB 
COMMON  / SUM2C  /  SUM2(  15) 

COMMON  /FATA/  ENDATA 
COMMON  /  QC  /  Q(l) 

DIMENSION  C(l) 

WRITE  (6,2) 


i  ' 
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2  FORMAT  { 1H1  ) 

READ  <5*3*  NOOOC 

3  FORMAT  (16) 

IF  (NOOOC. 60. 0)  GO  TO  7 

DO  6  I  It* I, NODOC 

READ  (5*51  (CARD (1)*I-1*12) 

5  FORMAT  (12A6) 

6  WRITE  (6,9)  (CARD(I),I*l,12) 

9  FORMAT  HH  ,I2A6) 

7  READ(5,7025)  ( CARD ( I) , I  =  1 , 10 ) 

7025  FORMAT  ( A6, F6.0,4( A3 , E 12 .6  )  ) 

8  CALL  STREAD 

IF  (NS.EQ.O)  GO  TO  20 
CALL  RESTRT 
GO  TO  25 
20  NUM I N=0 
NUMAX=0 
NPM AX=0 
NPM  S  N=0 
NEMIN=0 
NEMAX=0 
NKMAX=0 
NKM I N=0 
NTM AX=0 
NTMIN=0 

25  CALL  CYCREO 

IF  (CYCSK.NE.O)  GO  TO  28 
IF  (NS.NE.O)  GO  TO  28 
ERFL AG= 1 
WRITE  (6,10) 

WRITE  (6,7025)  ( CARD( I ) , I = 1 , 10) 

10  FORMAT  (  IHO , 47H  GENRAT  FRM'fiO  MUST  HAVE  AN  EDIT  SPECIFICATION 
111H  WHEN  NS=0.  /) 

28  CALL  TMREAD 
CALL  GEOK 
CALL  RMREAD 
CALL  EOSNRD(C, LIMIT) 

ZGETSW  =  0 

30  CALL  REGNRD(C) 

CALL  SOURCE 
CALL  BOUND 
C0MSW=0 

CALL  COMB 
ZTEMSW=0 
CALL  TMPRD 
PERCSW-J 
CALL  PERC 

31  IF  (CARD( 1 ) . EO.ENDATA)  GO  TO  50 
6RFLAG= l 

WRITE  (6,1000) 

WRITE  (6,7025)  (CARI)(  I )  ,  1  =  1, 10) 


***"■*'*  - 
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1000 


7000 


7001 


FORMAT  ( 1H0, 37H  GENRAT  FRMT1000  ENDATA  EXPECTED  NOW  /) 
READ  <5,7025)  (CARD!! ) , 1-1, 10) 

GO  TO  31 

IF(NS.GT.O)  GO  TO  49 

IR-i 

J*1 

SUM2!IR)*0. 

IF  <E0(IR).GT«0.)  GO  TO  43 
IF  (EO(IR).LT.O.)  GO  TO  45 
EZ-EG!  J+f.  I 
GO  TO  47 
EZ-EO(IR) 

GO  TO  47 
JEO*JREG<IRm 
EZ-  EGCJEO) 

SUM2(IR)*SUM2UR)*EZ*DMASS(J  +  1) 

J-J+l 

IF  (J.LE.JREG(IR))  GO  TO  42 
IR*IR*1 

IF  <  IR.GT.NREG)  GO  TO  49 
GO  TO  48 
J2*JREG<NREG)4l 
00  41  J*2 , J2 
OELT-DELTA 

IF  (OELTA.GT.il  GO  TO  218 

0«RIJ)-RIMI 

GO  TO  240 

IF  (OELTA.GT .2)  GO  TO  220 
D«(R( J)-R! J-l) )*<R(J)^R(J-i) ) 

GO  TO  240 

D*( R( J )-R ( J-l ) )*( R( J )**2+R( J )*R! J-l ) ♦Rl J-l )4*2 ) 
VL<J)*D/DELT/DMASS(J) 

CONTINUE 
PRINT  7000 

FORMAT ( 10H1HIST0RVS. ) 

IF(NOH( l) . EQoO)  GO  TO  51 
PRINT  7001, (NDH<I),NHC(I), 1-1,6) 

FORMAT ( 6H  EVERYI6,19H  CYCLES  UNTIL  CYCLEI6) 

GO  TO  52 


51  PRINT  7002, (OTH( I),CTH(I),I*1,6) 

7002  FORMAT ( 6H  EVERYE16.7, 13H  MSECS.  UNTILE16.7,7H  MSECS.) 

52  PRINT  7003 

7003  FORMAT! 12H0PRINT  OUTS.) 

!F(NDP( l) .EQ.O)  GO  TO  53 

PRINT  7001, (NDP!U,NPC(I), 1-1,6) 

GO  TO  54 

53  PRINT  7002,(OTPR(II»CTP!I),I*l»6) 

54  PRINT  7004 

7004  FORMAT! 15H0ENERGY  CHECKS.) 

IF! NDCK ! 1 ) . EQ.O)  GO  TO  55 

PRINT  7001,  (NDCK(I),NCKC(I), 1-1,6) 

GO  TO  56 


! 
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55  PRINT  7002,  (DTCKU)  ,CTCMI)  ,I«l,6) 

56  IFINEMIN.EQ.O)  GO  TO  57 

PRINT  7005«!EMIN!l)«TEMIN(  II,  WUNEMIN) 

7005  FORMAT (20H0EMIN  BNORY  CONO.  E«/(E16.7,6H  UNTILEI6. 7,7H  MSECS.) 

7006  FORMAT! 20H0KMIN  BNORY  CONO.  K«/(E16.7,6H  UNTILE16.7.7H  MSECS.) 

7007  FORMAT! 20H0PMIN  BNORY  CONO.  P»/ (E16.7.6H  UNTILE16.7,7H  MSECS.) 

7008  FORMAT I20H0TMIN  BNORY  COND.  T*/(E16.7,6H  UNTILE16. 7, 7H  MSECS.) 

7009  FORMAT I20H0UM IN  BNORY  CONO.  U-/(E16.7,6H  UNTILE16.7,7H  MSECS.) 

7010  FORMAT (20H0EMAX  BNORY  CONO.  E-/(Elfc.7,6H  UNTILE16.7,7H  MSECS.) 

7011  FORMAT! 20H0KMAX  BNORY  COND.  K«/(E16.7,6H  UNTILE16.7, 7H  MSECS.) 

7012  FORMAT I20H0PMAX  BNORY  COND.  P«/(E16.7,6H  UNTILE16.7,7H  MSECS.) 

7013  FORMAT (20H0TMAX  8NDRY  COND.  T«/(E16.7,6H  UNTILE16. 7, 7H  MSECS.) 

7014  FORMAT (20H0UMAX  BNORY  COND.  U>/!E16.7,6H  UNTILE16. 7,7H  MSECS.) 

57  IF(NKMIN.EQ.O)  GO  TO  58 

PRINT  7006, !KMIN!I),TKMIN!I), I*i,NKMIN) 

58  IFINPM1N.EQ.0)  GO  TO  59 

PRINT  7007, (PMIN! 1 ) ,TPMIN< I ) ,l*l,NPMIN) 

59  IF(NTMIN.EQ.O)  GO  TO  60 

PRINT  7008, !TM1N!I),TTMIN!I), 1*1 ,NTMIN) 

60  IF(NUMIN.EQ.O)  GO  TO  61 

PRINT  7009, IUMIN! I ) ,TUMIN! I ) ,I«1,NUMIN) 

61  IFINEMAX.EQ.O)  GO  TO  62 

PRINT  7010,  !EMAX!  I )  ,TEMAX!  I )  ,I*1,NE?!AX) 

62  IF(NKMAX.EQ.O)  GO  TO  63 

PRINT  7011, UMAX! I ) , TKMAX! I ) ,I*l,NKMAX) 

63  IF1NPMAX.EQ.0)  GO  TO  64 

PRINT  7012,!PMAXm,TPMAX!I),I«l,NPMAX) 

64  IF1NTMAX.EQ.0)  GO  TO  65 

PRINT  7013, ITMAX! I ) ,TTMAX!I ) ,I»l,NTMAX) 

65  IF(NUMAX.EQ.O)  GO  TO  66 

PRINT  7014, IUMAX! I ) , TUMAX! I ) ,I«1,NUMAX) 

66  PRINT  7015,  RMIN 

7015  FORMAT!6HORMIN«E16.7) 

GO  TO  (80,81,82),  DELTA 

80  PRINT  7027 

7027  FORMAT! 16H0PLANE  GEOMETRY.) 

GO  TO  83 

81  PRINT  7028 

7028  FORMAT (22H0CYLINDRICAL  GEOMETRY.) 

GO  TO  83 

82  PRINT  7029 

7029  FORMAT (20H0SPHER I CAL  GEOMETRY.) 

83  IR*  1 
J 1*  1 

67  IF! JREG(IR).FQ.O)  GO  TO  68 
J2*JREG( IR ) 

J3*MAT ( J2>1 )+l 
J4*MAT( J2+1 ) 

IF(MAT(J2+1).LT. 1000)  J4*I DEOS ( J 3 ) 

PRINT  7016,  IR,J4cCl(IR),C2(IR) ,C3! IR) ,C4! IR) ,C5! IR) ,E0! IR) 
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7014  FGRMAT<?HGRE6IQfc!6c 10K,  MATER  IAU6, 1H./4H  C1«E12.4,5H(  C2-EU.4, 
15H*  CS-E12.4,5H,  C4«E12.4tSM,  C5®E12.4,SMc  E0®E12.4,1H. ) 

PRINT  7017,CJ,ROl)eUOi)*TENI>l)eVLOl)ePROl)*66l>l)t 
1KP<  >l),KMt>l)c0MASSOl)fEL<>l)e>'JlcJ2) 

1017  FORMAT! lH0tlKJ«6Xe2HN  (10Xt2HU  *0X ,4HTEN  •«Xf4NVL  ,8X,4HPR  ,8X, 
14HE6  ,8X,4MKP  ,8Xc4MKM  e7X«4H0MASS  V7XV2HEL/(1H  , 13* 10E12.4 » i 
1R«!M1 

IFI1II.6T.15)  60  TO  61 
J1-J241 
60  TO  47 

61  IFINRSRCE.EQ.O)  60  TO  70 
00  4f  I®  l eNRSRCE 
J-NRSU) 

44  PRINT  7023, RSI 1 1 » lERSlKe I ) » TMRSIK, I ) ,K®1 , J) 

7023  FORMAT I2SH0SGURCE  OR  SINK  IN  RE6I0N  13/ 

1  <«M  OELTA  E-E16.7.24H  X  l.E-10  ER6S/KSEC.  UNTILEl4.7t7M  MSECS.)) 

70  IFIN2SRCE.E0.0)  60  TO  72 
00  71  I-ltMZSRCE 
>NZSI1) 

71  PRINT  7024c  JS(  n,(ES<K,I)  ,TMS(K,  I)  ,K®1,J) 

7024  FORMAT (23M0S0URCE  OR  SINK  IN  ZONE  13/ 

1  If M  OELTA  E«E16.7,24H  X  l.E-10  ER6S/MSEC.  UNTILE16.7,7H  MSECS.)) 

72  PRINT  7018c  07, OTP 

7018  F0RMATt4N00T-E16.7,6Hc  DTP«E16.7,IM.  ) 

PRINT  TOlfc  JO, JOS, JOMcORC 

701f  FORMAT  1 15H0MASS  ADO  INF0./4H  J0>I6,6H,  J0S-I4.6H,  J0M-I6,5M,  ON® 
1E14.7, IN. ) 

PRINT  7020,  Xl,X2cX3,X4cXS0X6 

7020  FORMAT  1 10H0PENCENTS./4M  X1-E12.4.5H,  X2»E12.4,5H,  X3>E12.4(5H»  X4* 
lE12.4,3Mt  X5»E12c4,9Hc  X6®E12.4  , IN.  ) 

PRINT  7021,  ZZcJMATcJLcZltJSTAR 

7021  FORMAT (4M022*E16.7(7Mt  JHAT-16t5Hc  JL-I6,5H,  Zl-E14.7c8H,  JSTAR-I4 

lclH.) 

PRINT  7022,  NF 

7022  FORMAT I4H0NF-I6) 

IFINS.EO.O)  NNAX®R(  JMAXM) 

NS*N 

UNITE  112)  NREGcJMAXcNRSRCEcNZSRCEtNEMINcNEMAXcNKNlNcNKNAXcNPNINc 

1  NPMAXcNTMINcNTMAXcNUMINcNUMAXc0Tc0TPc0ELTAcRE6N0cNScNFcJZc0RC* 

2  ZlcZ2cXl,X2cX3,X4,X5,X6,J0,40M,J0S,JL,JSTAR,JMAT,UNC6ScUNMKS, 

3  TMcRMINcRMAX 
JMAX1®JNAX«2 

0UM®0. 

UNITE  112)  IRIDcUIDcTEMIDcTAMIDcVLII)  cOOMcPRf  I )  cOUM, 

1  E6U)cOOM,KPU)c  KM  1 1 )  cOMASS  ( 1 )  cOMESS  (He  TEMSOI I )  ,TEM3I  !,»  , 

2  TEM4I I ) cKOMf 1 ) «EL ( I ) • CUM, MAT  1 1 ) ,6(1 ) c I®1 * JMAX1)  \ 

NRITEI12)  IRR6II )c JRE6I I) cCll I ) ,C2CI ),C3I I ),C4I I ) ,CS( I ) *EOI I ) • 

1  CKVII) ,SUM2 1 1 ) c I® 1c 15 ) ,MEOS . 10E0S 

UNITE  112)  INCHU)cNHCIl)cNOPU)cNPCU)cNOCK(I)cNCKC(I)cEMINU)c 

1  EMAXII ),KMIN( I ) cKMAXI I ) cPMINI I ) ,PMAXII ) ,TMIN( I ) ,TMAX! ! ).0M*Nf I ) « 

2  UMAX{!)cTENIN<!)cTEMAXtI)c?KNINtI)vTKMAX(t)cTPNINU)eTPNAXU)c 

3  TTMINII ) eTTMAXU  )  .TURIN! I ) (TUNAX< 1  )  *OTH(  I ) ,CTN(  I )  ,OTPR| I ) ,CTP U  ) , 

4  0TCKII)cCTCKII)c!-l»4) 

WRITE  112)  ttERSUcK)cESUcK)cTNRS(IcK)cTM$UcK)cI-lc6)cRSfK), 

1  JS(K)cNRS(K)cNZSIK)cK»lclO) 

>12345* 

WRITE  112)  J 
CALL  EXIT 
ENO 


-=«-  * 


i  m 


jBW»w 


GENRAT  -  1 
START  - 


CvjS,NFx  ihyct 
.FROM  STREAO  . 


READ  CARD  (0* ('2-1  ■ 

/CAftD(l>^ 
NlSTACT  & '/“ 


PRINT 

CARD 


RE6WR0 


<NS:cr> — 
/variables  Ano^ 

[CONSTANTS  READ  FROM 

V History  tape  in  Rtsm, 


f  HlS’Tj  LKIER6Y,  > 
PRINT  OUT  EDIT 
V  CYCRED  J 


_ {  18 

Atn,At°+  ^ 
THREAD  . 


NUMIAl 

ft 

o 

NUMAX 

5 

0 

npwum 

= 

o 

npmax 

s 

0 

NfcMlHi 

s 

0 

nemax 

X 

0 

NKvMiN 

ft 

0 

NKMAX 

- 

0 

NTM»M 

ft 

0 

KIT  MAX 

- 

0 

- PKiNT  MESSA&EJ 

manc  vexs /ov  ovty 


Source 

^OR  5lMKE 


BOUNDARY 


COMSW  -O 


/J6,JSi3M,W 

.  FROM  COMB/ 


2TEMSW  »0 


/'*»,  5&E.5L 
VfCbM  TMPR5 


PERCENTS 


RMlKl  FROM  > 
RM  READ  I 


TAB  EOS  Fto 
60SNRD 


xrrrc/n  x&axds  W*X  T  f»* 


5.  S TREAD 

STREAD  reads  and  interprets  the  START  card. 


IIEFTC  STREAD  REF 

SUBROUTINE  STREAD 

C  COMMON  CAROS  LA8ELEC  /  IKA 1 / ,  / IXA  1A/  AND  /  IKA1B/  GRCUPS  ANC 
C  1  INTEGER  CARO  GROUP  TC  BE  PLACED  HERE 

REAL  KVAL «  KZAL,  KM  IN ,  KMAXy  KDM «  KP,  KM  j 

COMMON  /STRB/  STARTB  ? 

COMMON  /NO/NSG.NFC  \ 

PEAL  NSC* NFO 

IF  ICARCUJ.NE. STARTB)  GO  TO  70 

IFYC-CARO ( 2 )  « 

F  IELCN* l 
WLAB-CARC ( 3 ) 

5  IF  (WLAB.EQ.NSC)  GO  TO  3C 
10  IF  (FIELDN.NE.l)  GO  TO  20 
15  IF  (WLAB.EQ.NFG)  GO  TC  AC 
20  WRITE  (6,1000 

WRITE  (6,7025)  (CARD! I ) , 1*1, 10 ) 

7C25  FORMAT  ( A6 , F6 .0, A ( A3 ,E 12.6 ) ) 

1CCC  FORMAT  (1HC,5CF  STREAD  FRMT1CCC  THERE  IS  AN  ERROR  IN  THE  'STAR' 
l,6H  CARD.  /) 

,  GC  TO  60 

30  IF  (FIELON.EC.l)  NS-CARC(A) 

IF  (FIELDN.EC.2)  NS«CARD(6) 

IF  ( F IELON.GT • 1 )  GO  TC  50 

FIELCN-2 

WLAB-CAR0I5) 

GC  TC  15 

AO  IF  (FIELON.EC.l)  NF«CARD( A ) 

|  IF  (F1EL0N.EC.2)  NF*CARD( 6 ) 

IF  (FIEL0N.EC.2)  GO  TO  50 
WLAB-CARO ( 5 ) 

FIELCN-2 
GC  TC  5 
60  ERFLAG* 1 
50  RETURN 

7C  WRITE  (6 , 1C  1C ) 

WRITE  (6,7025)(CAR0(I), 1-1,10) 

1010  FORMAT  ( 1H0, A1H  STREAO  FRMT1010  FIRST  CARC  NOT  'START*.  /) 

GC  TC  6C 
ENO 


* 

i 

i 

i 

i 
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6.  RESTRT 

RESTRT  is  called  if  NS  is  not  equal  to  0.  It  locates  the  first 
history  edit  on  the  history  tape  with  a  cycle  number  greater  than  or 
equal  to  NS,  reads  this  history  edit  and  backspaces  over  it.  An  NS 
larger  than  any  cycle  in  the  history  tape  results  in  the  last  cycle 
being  read. 


IIEFTC  RESTRT  REF 

SLBROUT INE  RESTRT 

C  CCMMCN  CAROS  LABELED  / IKA 1 / , / I KA 1A/  AND  /  I K A 1 E /  GRCUPS  AND 
C  1  INTEGER  CARC  GROUP  TC  EE  PLACED  HERE 

REAL  KVAL,  KZAL »  KM  IN ,  KMAX»  KDM,  KP,  KM 
COMMON  /RC/  R(l) 

CCMMCN  /UC/  111) 

CCMMCN  /TEMC/  TEM(l) 

CCMMCN  /TAMC/  T AM (  1 ) 

CCMMCN  /VLC/  VU1) 

COMMON  /PRC/  PR  (  1 ) 

CCMMCN  /EGC/  EG (  1) 

CCMMCN  /K PC/  KPU) 

CCMMCN  /KMC/  KM(1) 

CCMMCN  /DMASSC/  CMASS(l) 

CCMMCN  /DMESSC/  CMESSIl) 

CCMMCN  /TEMSCC/  TEMSC(l) 

CCMMCN  /TEM3C/  TFM3 (  1) 

CCMMCN  /YEM4C/  TEMAl  1  ) 

CCMMCN  /KCMC/  KO*  (  1  ) 

CCMMCN  /ELC/  EL ( 1 ) 

COMMON  /CKCCM/  CKY(  15) 

CCMMCN  /MATC/  MAT (  1 ) 

COMMON  /SUM2C  /  SUM2(15) 

COMMON  /  CC  /  0(1) 

CCMMCN  /EGSCCM/  PEGS,  I  f;  E  C  S  {  6  )  ♦  10RCER(6),  !EEGT(3,6),  DUM, 

1  IBEGV  (  3 »  f  )  ♦  I R  E  G  C  (  3  » t  ) 

1  RE AC  (12)  J 
BACKSPACE  12 

I F ( J . EC.  123456)  GO  TC  1C 

PEAC  (12)  NREGt JMAX ,NRSRCE ,NZSRCE , Nfc M I N , NEMAX  ,NKM  I  N, NKM AX  ,  NPM  IN 

1  NPMAX,NTMINtNTMAX,NLMIN,NLMAX,CT,CTP,CELTA?REGNC,N,NFT,JZ,CRC, 

2  Zl,Z2,Xl, X2,X3,XA, X5»Xt,JC» JCM.JCS, JL , JSTAR, JHAT ,LNCGS ,UNMKS , 

3  TM,RMIN,RMAX 
IF(NS.EC.C)  NF -NFT 
JMAX2  =  JMAX  +  2 

R  E AC  (12)  (R( I ),U( I ),TEM' I )f TAM(I ),VL( I) »CLMtPR( l  )  ,DUM, 

1  EG ( I ) t  CUM , KP  ,  KM (  I  )  ,CM AS  S ( I  ),DMESS(I),  TEMSC ( I  ) ,  TEM3 ( I ) * 

2  TEMA(l)fKCM  i»FL(I)»CLMfMAT(I),C(l)*I=l»JMAX2) 

RE AC  (12)  (RRC  I  I  )  ,JREG(  I  )  ,C1 ( I ) ,C2(T  )  ,C3(  Ii ,CA( I) ,C5( I ) ,E0( I ), 
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1  CKY  (  I  ) , SUR2 (  I  ) ,  I  =  l»  15)  ,  RECS »  ICEC.S 
READ  (12)  (NChU),NHCm»NCP(I )  ,NPCU  )  ,NCCK(I ),NCKC(I),EMIM  I  )» 

1  EM  AX  (I  ),KRIN(  1)  tmXilltPMNU)  ,PRAX(l  ) ,  TUN  (I) ,  TR  AX  (I)  ,0H  IN  ( I)  t 

2  UMAX  (  I)  f  TEH  IN  (  I  )  ,  TEMAX (  I )  ,  TKRI N ( I  )  ,TKMAX(  I  )  ,  TPR  IN  U)  ,  T  PR  AX  U)  t 

3  TTMIN(I),TTRAX(i),TURIN(I),TLRAXm,DTK{n,CTH(n  » CT PR (I )  ,  CT P  ( I  )  , 

4  CTCK( I ) , CTCK  ( I ) , 1  =  1 , £  ) 

READ  (12)  ((ERSU,K),ES(I,i<),TRP${I,K),TRStI,K>,!  =  l,6),PS(K), 

1  JS(K),NHS(K),hZS(K),K=l,lC) 

IF(N.GE.NS)  CC  TO  1C 
GO  TC  l 

1C  CC  15  1=1,5 
15  BACKSPACE  12 
RETURN 
bNC 


7 .  CYCRED 

CYCRED  reads  and  interprest  the  HISTORY  EDIT,  PRINT  OUT,  and 
ENERGY  EDIT  cards. 

SieFTC  CYCREC  REF 

SUBROUTINE  CYCREC 

C  CCMRCN  CAROS  LA8ELEC  / IKA l / , / I K A  1A /  AND  / I K A  1 B /  GROUPS  ANC 

C  1  INTEGER  CARD  GROUP  TC  BE  PLACFC  FERE 

PEAL  KVAL,  KZAL,  KMIN,  KRAX,  KOR  ,  KP,  KR 

CCHRCN  /HTOR/FISTOR 

CCMRCN  /PNTB/PPINTB 

CCMRCN  /ERGY/ENERGY 

CCHRCN  /NEQ/NCE,NDE,CTE»CTE 

CCHRCN  /TEBS/  TIREBS 

CCMHCN/UT  SB/  UNI T  SB 

CCHRCN  /PNEB/  PLANEP 

CCHRCN  /CINC/  CYLINC 

CCMHCN/SERI/SPHERI 

CCHRCN  /RNBB /  RRIN8B 

CCHRCN  /ESC/  ECS 

CCHRCN  /RICN/  REGIGN 

CCMRCN  /ZEBB/  ZONEBB 

CCHRCN  / Z U R C /  ZSCURC 

CCHRCN  /RURC /  RSCURC 

CCMRCN  /BYBB/  BCRYBB 

CCHRCN  /CB IN/  CORBIN 

CCHRCN  /ZH PE/  ZTEHPE 

CCHRCN  /PCEN/  PERCEN 

CCHRCN  /EATA/  ENCATA 

CCHRCN  /BLNK/RL ANK 

REAL  NCE,NCt 

1  FCRRAT  ( A6,Ft.C,4(A3,El2.6) ) 

CYC  Sh  =  C 

REAC  (5,1)  (CARCCI  ),  1=1,10 


T“ 


IF 

(CARDU).  EQ.HISTOR) 

GO 

TO 

40 

IF 

(CARDU).  EQ. PRINTS) 

GO 

TO 

280 

IF 

(CARDU).  EQ.  ENERGY) 

GO 

TO 

340 

IF 

(CYCSW.NE .0)  GO  TO 

24 

IF 

(NS.EG.O)  GO  TO  30 

IF 

(CARDU). E0.TIME8S) 

GO 

TO 

25 

IF 

(CARD( 1 5.EQ.PLANEB) 

GO 

TO 

25 

IF 

(CARDU).  EQ.CYLIND) 

GO 

TO 

25 

IF 

(CARDU). EQ. SPHERI ) 

GO 

TO 

25 

IF 

(CARDU).  EQ.RMINBB) 

GO 

TO 

25 

IF 

(CARDU). EQ. EOS)  GO 

TO 

25 

IF 

(CARO(l).EQ. REGION) 

GO 

TO 

25 

IF 

(CARDU).  EQ.20NEBB) 

GO 

TO 

25 

IF 

(CARO( 1 ) cEQ.ZSOORC) 

GO 

TO 

25 

IF 

(CARD(  D.EQ.RSOURC) 

GO 

TO 

25 

IF 

(CARD(l). EQ.BORVBB) 

GO 

TO 

25 

IF 

(CARDU).  EQ.C0M8IN) 

GO 

TO 

25 

IF 

(CARDU). EQ.2TEMPE) 

GO 

TO 

25 

IF 

(CARDU).  EQ.PERCEN) 

GO 

TO 

25 

IF 

(CARDU).  EQ.ENOATA) 

GO 

TO 

25 

ERFLAG-l 
PRINT  1080 

PRINT  l, (CARDU), 1-1,10) 

1080  FORMAT  (1H0.30H  CYCRED  FRMT1080  ILLEGAL  CARO  /) 

READ  (5,1)  (CARDU),  1-1,10) 

WRITE  16,1)  (CAROd),  1-1,101 
GO  TO  5 
25  RETURN 
30  WRITE  (6,1000) 

WRITE  (6,1)  (CARDU),  1-1,  10) 

1000  FORMAT  UH0,47H  CYCREO  FRMT1000  HI  STORY, PRINT,  OR  ENERGY  CHECK 
119H  EOIT  EXPECTED  NOW.  /) 

ERFLAG-i 
GO  TO  24 
40  CYCSW-1 
ll-l 

NDH( 1  )«0 
50  F IELDN* l 

WLAB«CARO( 3) 

60  IF( WLAB.EQ.NDE.OR. WLA8.EQ.DTE)  GO  TO  140 
70  IF(WLAB.EQ.NCE.OR.WLAB.EQ.CTE)  GO  TO  200 
80  IF  (WLAB.NE. BLANK)  GO  TO  110 
IF  (II.LE.l)  GO  TO  120 
90  READ  (5,1)  (CARDU), 1-1,10) 

IF  (CARD( 1J.EQ. BLANK)  GO  TO  100 
IF  (CARDU). NE.HISTOR)  GO  TO  5 
WRITE  (6,1010) 

WRITE  (6,1)  (CARDU),  1-1,10) 

1010  FORMAT  ( IHO, 44H  CYCRED  FRMT1010  MORE  THAN  ONE  HISTORY  EDIT  , 
16H  CARD.  /) 

GO  TO  90 


F 
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ioo  n»un 

GO  TO  50 
HO  ERFLAG-l 

WRITE  (6,1020) 

WRITE  (6,1)  (CARDU),l«i,10) 

1020  FORMAT  (1H0,49H  CYCRED  FRKT1020  SECOND  FIELD  ON  CARD  IS  NEITHER  , 
125H  »NC«*,  *ND»*,  NOR  BLANK.  /) 

GO  TO  90 
120  ERFLAG-l 

WRITE  (6,1030) 

WRITE  (6,1)  (CARD(!),!*l,10) 

1030  FORMAT  (IH0,A6H  CYCRED  FRMT1030  THE  FIRST  FIELD  OF  THE  FIRST  , 

122H  CARD  CANNOT  BE  BLANK.  /) 

GO  TO  90 

140  GO  TO  (150,180,150,180) yFIELDN 
150  GO  TO  (160,290  ,350),CYCSW 

160  IF  (WLAB. EQ. DTE. AND. FIELDN.EQ.l)  DTH( I I )«CARD( 4) 

IF  (WLAB.EQ.0TE.AN0.F1ELDN.EQ.3)  DTH( 1 1 )-CARD( 8) 

IF  ( WLAB. EQ.NDE.ANO.FI ELON.EQ.  1 )  NDH(II)-  CARD(4) 

IF  (WLAB.EQ.NOE.AND.fi ELON.EQ. 3)  NDH(!t)«  CARDU) 

170  GO  TO  (175,180,177) ,FIELDN 
175  FIELDN-2 

WLAB«CARD(5) 

GO  TO  60 
177  FIELDN«4 

WLAB«CARD(9) 

GO  TO  60 

180  WRITE  (6,1040) 

WRITE  (6,1)  (CARD( I  i . 1*1 , 10) 

1040  FORMAT  I1H0,47H  CYCREO  FRMT1040  *ND«*  SHOULD  BE  IN  EITHER  THE  , 
126H  FIRST  OR  THE  THIRD  FIELO.  /) 

ERFLAG-1  ? 

GO  TO  90 

200  GO  TO  (210,220,210,220) ,FIELON 
210  ERFLAG-l 

WRITE  (6,1050) 

WRITE  (6,1)  (CARD( I ), 1-1,10) 

1050  FORMAT  (IH0,47H  CYCRED  FRMT1050  'NC-*  SHOULD  BE  IN  EITHER  THE  , 
128H  SECOND  OR  THE  FOURTH  FIELD.  /) 

GO  TO  90 

220  GO  TO  (230,300,360) ,CYCSW 

230  IF  (WLAB.EQ.NCE.  AND.  FI  ELON.EQ.  2  )  NHCd!)-  CARD(6) 

IF  ( WLAB. EQ.NCE.AND.F1 ELDN.EQ.4)  NHC(II)-  CARD(iO) 

IF  ( WLAB. EQ. CTE.AND.FI ELON.EQ. 2)  CTH(II)*  CARD(6) 

IF  (WLAB. EQ.CTE.AND.FI ELON.EQ .4)  CTH(II)*  CARD(IO) 

240  GO  TO  ( 210,245,210,90) »FI ELON 
245  II-II41 

WLAB-CARD.17) 

FIELON-3 
GO  TO  60 


i 

t 


i 
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280  IF  (CYCSW.EQ.2)  GO  TO  330 
CYCSW=2 
11*1 

NDP I  1 )  =  0 
GO  TO  50 

290  IF  (Wt AB.EQ.NDE.AND.FIELDN.EQ.l)  NOPUU*  CAR014) 

IF  ( WLAB.EQ.NDE. AN0.FIELDN.EQ.3)  NOP C 1 1 ) *  CAR0I8) 

IF  {WtA8.FQ.0TE. AND. FIELON. EG.  DOTPRUD*  CARD14) 

IF  (WLAB.EQ.DTE.AND.FIELDN.EQ.3)DTPRU!  )*  CARD«8J 
GO  TO  170 

300  IF  (WLAB.EQ.NCE.AND.FIELDN.EQ.2)  NPC(I!)=  CARD(6) 

IF  (WLA8.EQ.NCE.AND.FIELDN.FQ. 4)  NPCIID*  CARDUO) 

IF  (WLAB.EQ.CTE.AND.FIELDN.E0.2)  CTPUI1*  CARDI6) 

IF  (WLAB.EQ.CTE.AND.FIELDN.EQ.4)  CTP(II)*  CARD(IO) 

GO  TO  240 
330  ERFL  AG= 1 

WRITE  (6,1060) 

WRITE  (6,1)  (  CARD! I), 1*1, 10) 

1060  FORMAT  (IH0,46H  C.YCREO  FRMT1060  YOU  HAVE  MORE  THAN  ONE  PRINT  , 
1 1  OH  EDITCARD.  /) 

READ  (5,1)  ( CARO( I), 1=1, 10) 

GO  TP  5 

340  IF  (CYCSW.EQ.3)  GO  TO  390 
CYCSW*3 
11=1 

NOCK ( l ) =0 
GO  TO  50 

350  IF  (WLAB.EQ.DTE. AND.FIELDN.EQ.l )DTCK< II )=  CARD(4) 

IF  (WLAB.FQ.DTE.AND.FIELDN.EQ.3)DTCK(II )=  CARD ( 8 ) 

IF  (WLAB.EQ.NDE.AND.FIELDN.FQ.l)NDCK(II )=  CARD(4) 

IF  (WLAB.EQ.NDE.AND.FIELDN.FQ.3  JNDCK ( 1 1 ) =  CARD! 8 ) 

GO  TO  170 

360  IF  (WLAB.EQ.NCE.AND.FIELDN.F0.2)NCKC( 1 1 )=  CARD! 6 ) 

IF  (WLAB.EQ.NCE.AND.FIELDN.EQ.4)NCKC(II  )=  CARDUO) 

IF  (WLAB.EQ.CTE.AND.FIELDNcFQ.2)CTCK( II >=  CARDI6) 

IF  (WLAB.EQ.CTE.AND.FIELDN.EQ.4)CTCK(II  )=  CARDUO) 

GO  TO  240 
390  ERFL AG=  l 

WRITE  (6,1070) 

WRITE  (6,1)  (CARD( I ) , 1=1, 10) 

1070  FORMAT  ( 1  HO , 47H  CYCREO  FRMT1070  YOU  HAVE  MORE  THAN  ONE  ENERGY 
1 17H  CHECK  EDIT  CARD.  /) 

GO  TO  5 
END 
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8.  TMRXAD 


TMUEAD  tm4j  and  lutcrpr*t«  th*  TD*  STI?  card. 


ilBFTC  THREAD  REF 

SUBROUTINE  THREAD  M  M  ut#c 

COHHON  CARDS  LABELED  /IKA1/  AND  /IKA1A/  GROUPS  TO  BE  PLACED  HERE 

INTEGER  CARD  GROUP  TO  BE  PLACED  HERE 
REAL  KVAL,  KZAL,  KHIN,  KHAX,  KDH,  KP,  KH 
COHHON  /DQ/DTG 


COHHON  /BLNK/ 
COHHON  /TEBS/ 
COHHON  /UTSB/ 
COHHON  /PNEB/ 
COHHON  /CIND/i 
COHHON  /SERI/ 
COHMON  /RNBB/ 
COHHON  /ESO/ 
COHHON  /RION/ 
COHHON  /ZEBB/ 
COHHON  /ZURC/ 


/BLNK/  BLANK 
/TEBS/  TIHEBS 
/UTSB/  UNITSB 
/PNEB/  PLANEB 
/CIND/CYLIND 
/SERI/SPHERI 
/RNBB/RHINBB 
/ESO/  EOS 
/RION/REGION 
/Z EBB/  ZONEBB 


ZSOURC 
COHHON  /RURC/  RSOURC 
COHHON  /BYBB/  BDRYBB 
COHHON  /CBIN/  COH8IN 
COHHON  /ZHPE/  ZTEHPE 
COHHON  /PCEN/  PERCEN 
COHHON  /EATA/  ENDATA 
IF  (CARDm.EQ. TIHEBS 
IF  (NS.NE.O)  GO  TO  10 


TO  20 


WRITE  (6,1000) 

WRITE  (6,1)  (CARD( I ) , 1*1, 10) 
1000  FORHAT  (IH0,48H  THREAD  FRHT1000 
111H  WHEN  NS*0.  /) 

ERFLAG=1 

IF  (CARD( 1).EQ. PLANEB)  GO  TO  10 
IF  (CARD(l) .EQ.CYLIND)  GO  TO  10 
IF  (CARD(l).EQ.SPHERI )  GO  TO  10 
IF  (CARD(  1  KEQ.RHINBB)  GO  TO  10 
IF  <CARO(  D.EQ.EOS)  GO  TO  10 
IF  (CARD( i).EQ. REGION)  GO  TO  10 
IF  (CARO(l).EQ. ZONEBB)  GO  TO  10 
IF  (CARD(l).EO. ZSOURC)  GO  TO  10 
IF  (CARD( 1 ) .EQ. RSOURC)  GO  TO  10 
IF  (CARO( l).FQ. BDRYBB)  GO  TO  10 
IF  (CARD(l).EQ.COHBIN)  GO  TO  10 
IF  <CARO( l).EQ. ZTEHPE)  GO  TO  10 
IF  <CARO( 1).EQ. PERCEN)  GO  TO  10 
IF  (CARD( 1). EC. ENDATA)  GO  TO  10 
ERFL AG= l 
PRINT  1010 

PRINT  1 , ( CARD* I ) ,1=1, 10) 


TIHF  STEP  DEFINITION  REQUIRED, 
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1010  FORMAT  ( 1H0»  31H  THREAD  FRHTIOIO  ILLEGAL  CARD  /) 
READ  15,1)  (CARD<I),!*1, 10) 

1  FORMAT  ( A6,F6.G,4f A3,E12.6) ) 

GO  TO  5 
10  RETURN 
20  FIEL0N«1 
50  DT«CARD(4) 

FIELDN*2 
60  DTP*CARDI 6) 

30  READ  (5,1)  ( CARD (I), 1*1, 10) 

GO  TO  10 
END 


TMUAD 
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9.  UNTRED  (RAND  version  only) 

UNTRED  reads  and  interprets  the  UNITS  card.  It  is  designed  to 
read  MMEGMS,  CGS  or  MRS  units,  but  the  MRS  logic  is  not  in  the  rest 
of  the  code  yet.  (Not  a  part  of  all-FORTRAN  versions.) 


*  '  % 


i 


* 


UNTRED 


10.  GEOM 

CMM  rudi  »od  interpret*  the  GEOMETRY  card. 


1IBFTC  GEOM  REF 

SUBROUTINE  GEOM  | 

COMMON  CAROS  LABELEO  /IKA1/  AND  / 1 KA L A/  GROUPS  TO  BE  PLACED  HFRE  , 
INTEGER  CARD  GROUP  TO  BE  PLACED  HERE 

REAL  KVAL,  KZAL,  KMIN,  KMAX,  KDM,  KPt  KM  ! 

COMMON  /PNEB/PLANEB  ! 

COMMON  /CIND/CYLIND 

COMMON  /SERI/SPHERI  ! 

COMMON/ RNBB/RM I NBB 
COMMON  /ESO/  EOS 
COMMON/RION/REGIQN 
COMMON  /ZE8B/  Z0NEB8 
COMMON  /ZURC/  ZSOURC 
COMMON  /RURC/R50URC 

COMMON  /BYBB/BORYBB  ! 

COMMON  /CBIN/COMBIN 
COMMON  /ZMPE/ZTEMPE 
COMMON  /PCEN/PERCEN 
COMMON  /EATA/ENDATA 

INTEGER  F I ELDN » ERF LAG* CYC SW»UNCGSt UNMKS » DELTA 
l  FORMAT  (A6,l6,4(  A3,E12.6)) 

5  IF  (PLANEB.EQ.CARD(l)  )  GO  TO  20 
<  IF  (CARD! 1J.EQ.CYLIND)  GO  TO  40 

IF  (CARO(l).EO.SPHERl  )  GO  TO  60 
{  IF  <CARD( 1 I.EQ.RMINBB)  GO  TO  7 

'  IF(CARD(l),EQ.EOS)  GO  TO  7 

IF  (CARD(l).EQ. REGION)  GO  TO  7 
j  IF  (CARD! 1 ) . EO.ZONEBB)  GO  TO  7 

IF  (CARD( 1 ) .EO* ZSOURC )  GO  TO  7 
IF  (CARDIt).EO.RSOURC)  GO  TO  7 
IF  (CARD!  D.EQ.BDRYBB)  GO  TO  7 
IF  (CARD! I ) • EO.COMB I N )  GO  TO  7 
IF  (CARO( li.EQ.ZTEMPE)  GO  TO  7 
IF  (CARD! I ) .EO.PERCEN)  GO  TO  7 
IF  (CARD! ll.EQ.ENDATA)  GO  TO  7 
ERFLAG*! 

WRITE  (6,1010) 

WRITE  (6,1)  (CARDU  ),!«!, 10) 

1010  FORMAT  ( 1H0, 38H  GEOM  FRMT1010  UNRECOGNIZABLE  CARD*  /) 

READ  (5,1)  ( CARD (I), 1*1, 10) 

GO  TO  5 

7  IF  (NS.NE.O  )  GO  TO  8 
DELT  A*1 
8  RETURN 
10  DELTA* 1 
GO  TO  35 

20  IF  (NS.EQ.O  )  GO  TO  10 
30  ERFLAG-1 

WRITE  (6,1000) 

WRITE  (6,1)  ( CARD( I), 1*1, 10) 

1000  FORMAT  11H0,50H  GEOM  FRMT1000  GEOMETRY  CANNOT  BE  SPECIFIED  FOR  £  - 


4  m **lr 


lf14H  NONZERO  CYCLE  / 1 

35  READ  15, 1)  JCARDl !)* I«l»lO) 
GO  TO  8 

40  KF  (NS.NE.O  )  GO  TO  30 
DELTA»2 
GO  TO  35 

60  TF  1NS.NE.0)  GO  TO  30 
0ELTA*3 
GO  TO  35 
END 
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11.  RMREAD  I 

RHREAD  reads  and  Interprets  the  RMIN  card.  If  any. 

I 

tlfiFTC  RMREAD  REF 

SUBROUTINE  RMREAD 

C  COMMON  CAROS  LABELED  /IKAI/  AND  /IKA1A/  GROUPS  TO  BE  PLACEO  HERE 

C  INTEGER  CARD  GROUP  TO  BE  PLACED  HERE  1 

REAL  KVAL,  KZAL,  KMIN,  KMAX,  KDM,  KP,  KM 
COMMON  /RC/  R ( 1 ) 

COMMON  /RNBB/RMINBB  I 

COMMON  /ESO/  EOS  1 

COMMON  /RION/  REGION 
COMMON  /Z EBB/  ZONEBB 

COMMON  /ZURC/  ZSOURC  1 

COMMON  /RURC/  RSOURC 
COMMON  /8V8B/  8DRYB8 
COMMON  /CB  IN/  COMBIN 
COMMON  /ZMPE/  ZTEMPE 
COMMON  /PCEN/  PERCEN 
COMMON  /EATA/  ENDATA 
l  FORMAT  (A6»F6.G,A(A3»E12.6) ) 

10  IF  { CAROI IJ.NE.RMINBB  )  GO  TO  35 
IF  (NS.EQ.O)  GO  TO  30 
ERFLAG=l 
WRITE  (6,1000) 

WRITE  (6,1)  (CARD(I) ,1*1,10) 

1000  FORMAT  (1H0,51H  RMREAD  FRMT10C0  RMIN  SPECIFICATION  WHEN  NS  NOT  C. 
I  /) 

25  READ  (5,1)  ( CARD( I ) , I* l , 1C ) 

26  RETURN 

30  R(l)=CARD(A) 

.  RM I  N=R (  l ) 

GO  TO  25 

«  AO  IF  (NS.EQ.O  )  GO  TO  A5 

GO  TO  26 
A5  R ( 1 ) =0. 

RMI N*0. 

GO  TP  26 


IF(CARD( 1 ) . EC.EOS  )  GO 

TO 

AC 

IF 

( C ARD( l).EQ. REGION) 

GO 

TC 

AO 

IF 

( CARD( 1 ).EQ. ZONEBB) 

GO 

TO 

AO 

IF 

(CARO( 1 ) .hQ. ZSOURC) 

GO 

TO 

AO 

IF 

(CARO( 1 ).EQ. RSOURC) 

GO 

TO 

AO 

IF 

( C ARD( l ) • EC.HDRYBB ) 

GO 

TO 

AC 

IF 

( C ARO ( 1 ). EC. COMBIN) 

GO 

TO 

AO 

IF 

(CAROt l ) .FQ. ZTEMPE ) 

GO 

TO 

AO 

IF 

( CARD ( 1 ).EQ. PERCEN) 

GO 

TO 

AO 

IF 

(CAROt 1 J.EO.ENOATA) 

GO 

TO 

AO 

ERFL AG= l 
WRITE  (6,1010) 

WRITE  (6,1)  (CAR 0(1), 1=1, 10) 

1010  FORMAT  (  l HO , 30H  RMREAD  FRMTIOiO  ILLEGAL  CARD  /) 
READ  (5,1)  (CARD( I ), 1=1, 10) 

GO  Tf1  10 
END 


1 


r>  o 
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12.  EOSNRD (C  , LIMIT) 

EOSNRD  reads  and  Interprets  the  EOS  card.  It  transmits  to  REOST 
the  information  necessary  for  inputting  tne  equation  of  state  co¬ 
efficients  through  the  table  IDEOS,  IDEOS ^  contains  the  equation  of 
state  identification  number  for  material  number  i+1.  For  example, 
let  us  say  the  first  region  of  the  problem  was  tabular  aluminum  and 
that  this  region  was  assigned  material  number  5.  The  identification 
number  of  aluminum  is  513.  Therefore  IDEOS (6)  =  513. 


UBFTC  EOSNRD  REF 

SUBROUTINE  EOSNROI C , L I M  IT) 

COMMON  CARDS  LABELED  / IKAL/  AND  /IKA1A/  GROUPS  TO  BE  PLACED  HE 
INTEGER  CARD  GROUP  TO  BE  PLACED  HERE 
REAL  KVAL  *  KZAL,  KMIN,  KMAX,  KDM,  KP,  KM 

COMMON  /EOSCOM/  MEOS,  IDF0S(6),  10RDER16),  IBEGT (3*6) ,  DUM, 

1  IBEGV(3,6),  I BEGC ( 3 » 6 ) 

DIMENSION  F  ( 9 } ,  C(1  ) 

COMMON  /ESO/  FOS»ZEROf  ONE  »T WO, THREE,  FOUR  *  F  I VE 
COMMON  /RION/  REGION 
COMMON  /ZEBB/  ZONEBB 
COMMON  / ZURC/  ZSOURC 
COMMON  /RURC/  RSOURC 
COMMON  /BY*B/  BDRYBB 
COMMON  /CBtN/  COMBIN 
COMMON  /ZMPE/  ZTEMPE 
COMMON  /PCEN/  PERCEN 
COMMON  /EATA/  ENDATA 
COMMON  /BLNK/  BLANK 
2  IF(CARD(  D.NE.EOS)  GO  TO  50 
ME0S=0 

5  IF(CARDU)  .EQ.EOS  . OR k CARD!  1 )  .EQ. BLANK)  GO  TO  10 
CALL  REOSTIC, LIMIT) 

RETURN 

10  DO  40  1*1,4 

IF  (I.EQ.l)  WL AB=CARD( 3 ) 

IF  (I.EQ.2)  WLAB=CARD( 5 ) 

IF  (I.E0.3)  WLAB=CARD{ 7 ) 

IF  (I.E0.4)  WLAB=CARD( 9) 

IFIWLA8.E0. BLANK)  GO  TO  41 
F IEL0N* I 

IF( WLAB.EQ. ZERO)  GO  TO  20 
IF{ WLAB.EO.ONE )  GO  TO  21 
I F ( WLAR.EO. TWO)  GO  TO  22 
IFIWLAB.EQ. THREE )  GO  TO  23 
IF{ WLAB.EQ.FOUR)  GO  TO  24 
IF(WLAB.EQ.FIVE)  GO  TO  25 
WRITE  (6,15)  I 

WRITE  (6,1)  (CARDIN! ) ,NI=l, 10) 
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15  FORMAT  ( 1H0»47H  EOSNRD  FRMT15  THE  ,11,  H  TH  FIELD  ON  THIS 
136H  CARD  CONTAINS  AN  UNACCEPTABLE  NUMBER.  /) 

CO  TO  40 

20  I  SUB* 1 
GO  TO  30 

21  I  SUB  *2 
GO  TO  30 

22  I  SUB  «  3 
GO  TO  30 

23  t  SUB  »  4 
GO  TO  30 

24  I  SUB  *5 
GO  TO  30 

25  I  SUB  *6 

30  IF  (I.EQ.l)  iDEOSi ISUB)*CARD(4  ) 

IF  (I.EQ.2)  IDEOSI ISUB)«CARD(6  ) 

IF  (I.EQ.3)  IDEOSl  ISUB)*CARD(8  ) 

IF  (I.EQ.4)  IDEOSf  I SU8 )*CARD ( 10 ) 

MEOS-MEOS+i 

40  CONTINUE 

41  READ  (5,1)  (CARD(I), 1-1,10) 

1  FORMAT  ( A6,F6.0,4(A3,E12.6) ) 

GO  TO  5 

50  IF  (CARD(l).EQ. REGION)  RETURN 
IF  (CARD( 1 ) .EQ.ZONEBB)  RETURN 
IF  (CARD!  D.EO.ZSOURC)  RETURN 
IF  (CARD(l).EQ.RSOURC)  RETURN 
IF  (CARD! 1).EQ«BDRYBB)  RETURN 
IF  (CARD! 1 ) » EQ. COMBI N)  RETURN 
IF  (CARD( lJ.EO.ZTEHPE)  RETURN 
IF  (CARD! lJ.EO.PERCEN)  RETURN 
IF  (CARD(n.EQ.ENDATA)  RETURN 
ERFLAG-l 
WRITE  (6,1000) 

WRITE  (6,1)  (CARO( I ) ,1*1,10) 

1000  FORMAT  (IH0.30H  EOSNRD  FRMT1000  ILLEGAL  CARD  /) 

READ  (5,1)  (CARD( I), 1-1,10) 

GO  \0  2 
END 


l 


1 


i 


j 


V 


5-  ' 


WfciTE 

MESSAGE 
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13.  REOST  (C /LIMIT) 

REOST  reads  the  interpolation  coefficients  from  the  equation  of 
state  tape  prepared  by  TABCOE.  The  T's,  p's  and  C's  are  stored  in 
the  C  array  as  follows : 


T 

's 

for 

P 
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encountered 
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encountered 

on 

the 

tape 

T 

's 

for 

P 

of 
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C's  for  K  of  last  eq.  of  state  encountered  on  the  tape 
Four  tables  are  constructed  for  locating  numbers  in  the  C  table. 
IORDER^  contains  the  identification  number  of  the  ith  equation  of 
state  read  from  the  tape.  IBEGT(i,j)  contains  the  address  of  the 
first  T  of  the  ith  equation  of  the  jth  equation  of  state,  i  =>  1,  2 
or  3  for  P,  E  and  K  respectively,  IBEGV(i,j)  and  IBEGC(i,j)  are 
the  first  locations  of  the  corresponding  p  and  coefficient  C. 


tlBFTC  REOST  REF 

SUBROUTINE  REOST ( C , t l M I T ) 

COMMON  /EOSCOM/  MEOS,  IDE0S16),  I0RDERI6),  IBEGT(3,6)»  OUM, 
l  IBEGV I  3»  6  ) »  I BEGC  (  3 » t>) 

DIMENSION  F ( 9 ) »  Cll) 

IF(MFOS.EO.O)  RETURN 
REWIND  8 
I  N0=0 

15  I BEGT ( 1 t 1 ) = 1 
DO  110  IT  =  1 »  LOO 
READ ( 8 )  I  EOS 

l F ( IEOS.GT.O  )  GO  TO  10 
PRINT  7000* INOtMEOS 

7000  FORMAT  (56H1  REOST  FRMT7000  END  OF  EOS  TAPE  ENCOUNTERED.  NO. 

124H  OF  EOS  FOUND  AND  READ  «  I4,30H  NO.  OF  EOS  NEEDED  IN  THIS  JOB 


non  non 
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2  2H  =  14) 

RETURN 

10  BACKSPACE  8 

READ  (8)  IE0S,ITABN0,N0TS,N0VS 
BACKSPACE  8 
00  18  1*1,6 

IFUEOS.EQ.IOEOSm  )  GO  TO  20 
18  CONTINUE 
GO  TO  100 
20  INO* INO* 1 

I ORDER! INO) *  IEOS 
00  107  ITAB* 1,3 

READ  (8)  IEOS, 1 TABNO  »NOTS  »NOVS 
I8EGV( ITAB»IN0)*IBEGT( ITAB, I  NO) ♦NOT S 
lTC*IBEGTUTAB,INO) 

ITS* I TC+N0T5-1 
IVC*ITS+1 
IVS*IVC+N0VS-1 
IF « IVS.GT. LIMIT)  GO  TO  999 

READ  (8)  (C(I),I-ITC,ITS),(Cm,I*IVC,lVS) 

SKIP  NEXT  RECORD  ON  EOS  TAPE 
READ! 8 ) 

IBEGCt ITAB, INO)  *  I BEGV ( I  TAB , I  NO ) +NOVS 

N0CT*N0TS/2 

N0CV*N0VS/2 

ITOTC*  N0CT*9*N0CV 

ICC  *  IBEGCt ITAB, INO) 

ICS* ICC+I TQTC- l 
I F ( ICS. GT. LIMIT)  GO  TO  999 
READ  18)  (Cm»I*ICCt  ICS) 

IBEGTt  ITABH,  INO)*  I BEGC U TAB » I  NO) +1 TOTC 
107  CONTINUE 

I F ( INO.EQ.MEOS)  GO  TO  120 
GO  TO  no 

SKIP  NEXT  12  RECORDS  -  TO  BEGINNING  OF  NEXT  EOS  INFORMATION 

100  00  105  ISKIP  *1,12 
105  READ  (8) 

HO  CONTINUE 
120  REWIND  8 
RETURN 

999  PRINT  7001 

7001  FORMAT  (49H0  REOST  FRMT7001  EOS  TABLES  REQUESTED  EXCEED 

l  19H  AVAILABLE  STORAGE.  ) 

CALL  EXIT 
END 


TWO  =  I  NO  *•  \ 

i  ordering')*  isos 

HZ  — 

9o  n&Bs  1,3 

. --^=r~~ 

«?e.fto  teos, 
itabno,  nots.  wovs 

_ ■  r _ 

38t&V(lTA6,TMO)=  I&E6T  (m?>,INO)< 
NOTE 

TTC  •»  IB66T  (  TT6&,  INO') 

ITS  -  1TC  +  NOT S  -  \ 
ivc  *  Its  *  i 

tvs  =  IVC  +  NOVS-I 


RE60  C(t\MTC,TT<5 
Ctl),!  =3  VC,  I\>S 


VEWlMO 


j6&6T(me>n,  tno'i  « 

l6£&C(ITi8,lNO)+ITOTC 


I8L6C  (tT6&,lNcf)  =  I0EGv(lTAB, 
INO)*  NOVS 
NOCT  «  NOTs/z 
NOCV  »  NOVS  /  2 
1TOTC  «  NOCT*^’  NOCV 
ICC  *  I8e&C(nAB»,  INO') 

ics  *  tcc  f  note-  \ 


ReAO 

c(l),l  =  ICC,  ICS 
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14.  REGNRD 

REGNRD  reads  and  interprets  the  REGION  and  ZONE  cards  and 
calls  subroutines  to  generate  the  zone  variables. 


UBFTC  REGNRD  REF 

SUBROUTINE  RFGNP.D(C) 

C  COMMON  CAROS  LABELED  /iKAi/  AND  /IKAIA/  GROUPS  TO  BE  PLACED  HER 

C  INTEGER  CARO  GROUP  TO  BE  PLACED  HERE 

REAL  KVALt  KZAL,  KMIN,  KMAX ♦  KDM,  KP,  KM 
COMMON  /RC/  RID 
COMMON  /TEMC/  TEMI  1) 

COMMON  /T AMC /  T AM (  l) 

COMMON  /VIC/  VL(  1) 

COMMON  /KPC/  KP (  1) 

COMMON  /KMC/  KM(I) 

COMMON  /DMASSC/  DMASSIU 
COMMON  /DMESSC/  OMESS(l) 

COMMON  /TEMSOC/  TEMSQ(l) 

COMMON  /T6M3C/  TEK3(1) 

COMMON  /TEM4C/  TEM4I  1) 

COMMON  /KOMC/  KDM(l) 

COMMON  /ELC/  EL  C  1 ) 

COMMON  /M A TC /  MAT (I) 

COMMON  /EGC/  EG(1) 

COMMON  /R I  ON/REGION 
COMMON  /VQ/VEQ 
COMMON  /JQ/JEQ 
COMMON  /RQ/REO 
COMMON  /DRO/DREO 
COMMON  /UQ/UEO 
COMMON  /TQ/TEQ 
COMMON  /MQ/MEO 
COMMON  /RHQ/RHEO 
COMMON  /PQ/PEO 
COMMON  /EO/EEO 
COMMON  /KQ/KEQ 
COMMON  /C1Q/C1EG 
COMMON  /C2Q/C2EQ 
COMMON  /C3Q/C3EC 
COMMON  /C4Q/C4EQ 
COMMON  /C5Q/C5EQ 
COMMON  /EOQ/FOEQ 
COMMON  /BLNK/BLANK 
COMMON  /ZEBR/ZONEBB 
REAL  JEQ,KEO,MEQ 
DIMENSION  C(L) 

5  IF  ICAROm.EO. REGION)  GO  TO  20 
IF(NS.EQ.O)  GO  TO  3 
IF(CAROU).NE.ZONEBB)  RETURN 
PRINT  7000 
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7000  FORMAT  (1H0,45H  REGNRD  FRMT7000  ZONE  CARO  NOT  PERMITTED  FOR  « 

1  9H  RESTART.  /) 

READ  (5,1)  (CARD( I ), 1*1, 1C) 

1  FORMAT  (A6,F6.0,4(A3,E12.6) ) 

GO  TO  5 

3  IF  (RGNSW.EQ.O)  GO  TO  10 
GO  TO  360 

10  IF  (NS.NE.O)  GO  TO  360 
ERFLAG*! 

WRITE  (6,1000) 

WRITE  (6,1)  (CARDi I ) , 1*1 , 10) 

1000  FORMAT  (1H0.49H  REGNRD  FRMT1000  MUST  HAVE  REGION  CARD  WHEN  NS*0/ ) 
GO  TO  360 
20  RGNSW* 1 
ZNSWC*0 

30  REGNO*REGNO+i 

IF  (REGNO. EQ.l)  GO  TO  32 
JORIG*JREG( REGNO-1 ) 

GO  TO  35 
32  JOR IG*0 

35  IF  (ZNSWC.EQ.O)  GO  TO  40 
NZONE*CARD( 2 ) 

38  TZWCH-0 
MZWCH*0 
VZWCH*0 
UZWCH*0 
RHZWCH«0 
PZWCH*0 
EZWCH=0 
KZWCH=0 
RSWCH*0 
DRSWCH-0 
GO  TO  50 

40  IF(REGNO.EQ.l)  GO  TO  42 
IF( 12000. EQ.O)  GO  TO  42 
Jl*JREG(REGN0-2 )+2 
J2*JREG( REGNO-1 )♦! 

IF (REGNO, EQ. 2)  Ji*2 
DO  41  I«J1,J2 
EL ( I )*EG( I ) 

EG( I )*TEM( I ) 

TEM( I )*EL ( I ) 

41  EL ( I )*0. 

12000*0 

42  NEOS  *  CARD( 2)  ♦  .1 

IF ( NE0S.LT.2000 )  GO  TO  43 
12000*1 

NEOS*NEOS-1000 
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43  JSWCH»0 
DRSWCH-0 
RSWCH«0 
TSWCH«0 
MSWCH*0 
YSWCH*0 
PSWCH*0 
ESWCH*0 
USWCH=0 
RHSWCH-0 
ClSWCH«0 
C2SWCH*0 
C3SWCH«0 
C4SWCH«0 
C5SWCH*0 
EOSWCH-O 
KSWCH«0 

IF (NS.NE.O)  REGNO*NEOS 
50  WLAB«CAR0(3) 

FIELDN-1 

55  IF  (WLAB.NE. JEQ  I  GO  TO  70 
IF  (JSWCH.EQ.O)  GO  TO  60 
ERFLAG»1 
WRITE  (6,1020) 

WRITE  (6,1)  (CARO(I),I«i,lO) 

1020  FORMAT  (IH0.29H  REGNRD  FRMT1020  TWO  JFI6LDS  /) 

GO  TO  380 
60  JSWCH* l 

IF  (ZNSWC.NE.O  )  GO  TO  400 
IF  (FIELDN.EQ.l)  JREG( REGNO) -CARD (  4) 

IF  (FIELDN.EQ.2)  JREG( REGNO) =CARD(  6) 

IF  (FIEL0N.E0.3)  JREG( REGNO)*CARD(  8) 

IF  (FIELDN.E0.4)  JREG( REGNO) -CARD! 10) 

GO  TO  390 

70  IF  (WLAB.NE. REQ)  GO  TO  90 
IF  (RSWCH.EQ.O)  GO  TO  80 
ERFLAG* 1 
WRITE  (6,1030) 

WRITE  (6,1)  (CARD( I) ,1=1, 10) 

1030  FORMAT  (IH0,44H  REGNRD  FRMT1030  THERE  ARE  TWO  'R« '  FIELDS.  /) 
GO  TO  390 
80  RSWCH* l 

IF  (ZNSWC.NE.O)  GO  TO  410 
IF  (FIELDN.EQ.l)  RVAL*CARD(  4) 

IF  (FIEL0N.EQ.2)  RVAL-CARD(  6) 

IF  (FIELDN.EQ.3)  RVAL*CARD(  8) 

IF  (FIEL0N.EQ.4)  RVAL»CARD( 10) 

GO  TO  390 

90  IF  (WLAB.NE. DREQ)  GO  TO  110 
IF  (DRSWCH.EQ.O)  GO  TO  100 
ERFLAG*1 
WRITE  (6,1040) 

WRITE  (6,1)  (CARD{ I), 1=1, 10) 
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1040  FORMAT  (1H0»49H  REGNRO  FRMT1040  THERE  ARE  TWO  OR  FIELDS  ON  THIS  « 
1  6H  CARO.  /) 

GO  TO  390 
100  ORSWCH-l 

IF  (FIELON.EQ.l)  DR-CAROI  4) 

IF  (FIELDN.EQ.2)  OR«CARO(  61 

IF  (FIELDN.EQ.3)  OR»CARD(  8) 

IF  ( F IEL0N.E0.4)  DR-CARDllO) 

GO  TO  390 

110  IF  (WLAB.NE. UEG)  GO  TO  130 
IF  (ZNSWC.NE.O)  GO  TO  420 
IF  (USWCH.EQ.O)  GO  TO  120 
ERFLAG- 1 
WRITE  (6,1050) 

WRITE  (6,1)  (CARO(I), 1-1,10) 

1050  FORMAT  (1H0,48H  REGNRO  FRMT1050  TWO  VELOCITY  SPECIFICATIONS  ON  , 

1 16H  FOLLOWING  CARO.  /) 

GO  TO  390 
120  USWCH-l 

IF  (FIELON.EQ.l)  UVAL-CAROI  4) 

IF  (FIEL0N.EQ.2)  UVAL»CARO(  6) 

IF  ( F IEL0N.EQ.3)  UVAL-CAROI  8) 

IF  (FIELDN.EQ.4)  UVAL-CARO( 10) 

GO  TO  390 

130  IF  ( WLAB.NE. TEQ)  GO  TO  150 
IF  (ZNSWC.NE.O)  GO  TO  430 

IF  (TSWCH.EQ.O)  GO  TO  140 

ERFLAG-1 
WRITE  (6,1060) 

WRITE  (6,1)  (CARD(l),I«l»lO) 

1060  FORMAT  (1H0,49H  REGNRO  FRMT1060  MORE  THAN  ONE  TEMPERATURE  FIELO/ ) 
GO  TO  390 

140  IF(12000„NE.0)  GO  TO  241 

141  TSWCH-l 

IF  (FIELON.EQ.l)  TVAL-CAROI  4) 

IF  (FIEL0N.EQ.2)  TVAL-CARO(  6) 

IF  ( F IELDN.EQ. 3)  TVAL-CAROI  8) 

IF  (FIELDN.EQ.4)  TVAL«CARO( 10 ) 

GO  TO  390 

150  IF  (WLAB.NE. MEQ)  GO  TO  170 
IF  (ZNSWC.NE.O)  GO  TO  450 

IF  (MSWCH.NE.O)  GO  TO  160 

MSWCH* 1 

IF  (FIELON.EQ.l)  OMVAL-CAROI  4) 

IF  (FIEL0N.EQ.2)  DMVAL*CARD(  6) 

IF  (FIELDN.EQ.3)  DMVAL*CARD(  8) 

IF  (FIELDN.EQ.4)  DMVAL«CARO( 10) 

GO  TO  390 
160  ERFLAG-1 

WRITE  (6,1070) 

WRITE  (6,1)  (CAROm,  1-1,10) 
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1070  FORMAT  UH0,51H  REGNRD  FRMT1070  MORE  THAN  ONE  MASS  SPECIFICATION, 
i  /) 

GO  TO  390 

170  IF  ( WLAB.NE.VEQ)  GO  TO  190 
IF  (ZNSWC.NE.O)  GO  TO  470 
IF  (VSWCH.EQ.O)  GO  TO  180 
ERFLAG«l 
WRITE  (6,10C0) 

WRITE  (6,1)  (CARD( 1) , 1*1, 10) 

1080  FORMAT  (1H0,48H  REGNRD  FRMT1080  MORE  THAN  ONE  SPECIFIC  VOLUME.  /) 
GO  TO  390 
180  VSWCH-1 

IF  (FIELON.EQ.l)  VVAL*CARD(  4) 

IF  (FIELDN.EQ.2)  VVAL*CARD(  6) 

IF  ( FIELDN.EQ.3)  VVAL*CARD(  8) 

IF  (FIELDN.EQ.4)  VVAL*CARD( 10) 

GO  TO  390 

190  IF  (WLA8.NE.RHEQ)  GO  TO  210 
IF  (ZNSWC.NE.O)  GO  TO  490 
IF  (RHSWCH.EQ.O)  GO  JO  200 
ERFLAG-1 
WRITE  (6,1090) 

WRITE  (6,1)  (CARD(I),I*1,10) 

1090  FORMAT  (IH0.39H  REGNRD  FRMT1090  MORE  THAN  ONE  OENSITY 
1 , 15H  SPECIFICATION.  /) 

GO  TO  390 
200  RHSWCH-l 

I  IF  (FIELON.EQ.l)  RHVAL*CARD(  4) 

IF  (FIELDN.E0.2)  RHVAL«CARO{  6) 

IF  (FIELDN.EQ.3)  RHVAL*CARO(  8) 

IF  (FIELDN.EQ.4)  RHVAL*CARD( 1 0 ) 

GO  TO  390 

210  IF  (WLAB.NE.PEQ)  GO  TO  230 
IF  (ZNSWC.NE.O)  GO  TO  510 
IF  (PSWCH.EQ.O)  GO  TO  220 
ERFLAG* l 
WRITE  (6,1100) 

WRITE  (6,1)  (CAR 0(1), 1*1, 10) 

1100  FORMAT  ( 1H0, 40H  REGNRO  FRMT1100  MORE  THAN  ONE  P  FIELD.  /) 

GO  TO  390 
220  PSWCH* 1 

IF  (FIELON.EQ.l)  PVAL*CARD(  4) 

IF  (FIELON.E Q.2)  PVAL*CARD(  6) 

IF  (FIELDN.EQ.3)  PVAL*CARD(  8) 

IF  (FIELDN.EQ.4)  PVAL*CARD( 10 ) 

GO  TO  390 

230  IF  (WLAB.NE.EEQ)  GO  TO  250 
IF  (ZNSWC.NE.O)  GO  TO  530 


I 
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if  (E5WCH.EQ.0)  GO  TU  240 

ERFLAG-l 

WRITE  (6, 1110) 

WRITE  (6,1)  (CARD(I), 1-1,10) 

1110  FORMAT  (IH0,45H  REGNRO  FRMT1110  MORE  THAN  ONE  ENERGY  FIELD.  /) 

GO  TO  390 

240  IF ( I 2000.NE.0)  GO  TO  141 

241  ESWCH-i 

IF  (FIELDN.EQ.l)  EVAL«CARO(  4) 

IF  (FIELDN.EQ.2)  EVAL*CARO(  6) 

IF  (FIELDN.E0.3)  EVAL-CARDI  8) 

IF  (FIELDN.EQ.4)  EVAL»CARD( 10) 

GO  TO  390 

250  IF  (WLA8.NE.KEQ)  GO  TO  270 
IF  (ZN5WC.NE.0)  GO  TO  550 
IF  (KSWCH.EQ.O)  GO  TO  260 
ERFLAG-l 
WRITE  (6,1120) 

WRITE  (6,1)  (CARD(I), 1-1,10) 

1120  FORMAT  (1H0,40H  REGNRD  FRMT1120  MORE  THAN  ONE  K  FIELD.  /) 

GO  TO  390 
260  KSWCH-l 

IF  (FIELDN.EQ.l)  KVAL«CARO(  4) 

IF  (FIELDN.EQ.2)  KVAL-CARD(  6) 

IF  ( FIELDN.EQ.3)  KVAL«CARD(  8) 

IF  (FIELDN.EQ.4)  KVAL-CARDl 10) 

GO  TO  390 

270  IF(WLAB.NE.CIEQ)  GO  TO  2900 
IF  (C1SWCH.EQ.0)  GO  TO  280 
ERFLAG-l 
WRITE  (6,1130) 

WRITE  (6,1)  (CARD( I), 1-1,10) 

1130  FORMAT  (1HQ,41H  REGNRD  FRMT1130  MORE  THAN  ONE  Cl  FIELD.  /) 

IF  (ZNSWC.EQ.O)  GO  TO  390 
275  ERFLAG-l 

WRITE  (6,1140) 

WRITE  (6,1)  (CARD(I), 1-1,10) 

1140  FORMAT  (1H0,44H  REGNRD  FRMT1140  A  Cl  FIELD  ON  A  ZONE  CARD.  /) 

GO  TO  390 
280  ClSWCH-1 

IF  (ZNSWC.NE.O)  GO  TO  275 
IF  (FIELDN.EQ.l)  C 1 ( REGNO) -CARD(  4) 

IF  (FIELDN.EQ.2)  C 1 ( REGNO) «CARD(  6) 

IF  (FIELDN.EQ.3)  C l ( REGNO) -CARD!  0) 

IF  (FIELDN.EQ.4)  C 1 ( REGNO) *CARD( 10) 

GO  TO  390 

2900  IF( WLAB.NE.C2EQ)  GO  TO  290 
IF(C2SWCH.EQ.O)  GO  TO  3000 
ERFLAG-l 
WRITE  (6,11500) 

WRITE  (6,1)  (CARD( l), 1-1,10) 

11500  FORMAT  (IH0,41H  REGNRD  FRMT11500  MORE  THAN  ONE  C2  FIELD.  /) 
IF(ZNSWC.EQ.O)  GO  TO  390 
2950  ERFLAG-l 

WRITE  (6,11600) 

WRITE  (6,1)  (CARD(I), 1-1,10) 

11600  FORMAT  (1H0,49H  REGNRD  FRMT11600  C2  FIELD  APPEARS  ON  A  ZONE  CARD/) 
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GO  TO  390 
3000  C2SWCH* 1 

I F ( ZNSWC.NE. 0)  GO  TO  2950 
IF  (FIELDN.EQ.l)  C2 (REGNO) -CARD (  4) 

IF  (FIELDN.EQ.2)  C2 ( REGNO) «CARO(  6> 

IF  (FIELDN.EQ.3)  C2(R£GN0)»CARD(  8) 

IF  IFIEL0N.E0.4)  C2( REGNO)*CARD( 10) 

GO  TO  390 

290  IF  (WLAB.NE.C3EQ)  GO  TO  310 
IF  (C3SWCH.E0.0)  GO  TO  300 
ERFLAG-l 
WRITE  (6*1150) 

WRITE  (6*1)  (CARD(I), 1-1,10) 

1150  FORMAT  (1H0.41H  REGNRD  FRMT1150  MORE  THAN  ONE  C3  FIELD.  /) 

IF  (ZNSWC.EO.O)  GO  TO  390 
295  ERFL AG* 1 

WRITE  (6*1160) 

WRITE  (6,1)  (CARD( I) ,1-1,10) 

1160  FORMAT  (IH0,49H  REGNRD  FRMT1160  C3  FIELD  APPEARS  ON  A  ZONE  CARO/ 

GO  TO  390 
300  C3SWCH- l 

IF  (ZNSWC.NE.O)  GO  TO  295 

IF  (FIELDN.EQ.l)  C3(REGN0)-CARD(  4) 

IF  (FIELDN.EQ.2)  C3(REGN0)*CARD(  6) 

IF  (FIELDN.EQ.3)  C3( REGNO)«CARD(  8) 

IF  (FIELDN.EQ.4)  C31REGN0I-CARDU0) 

GO  TO  390 

310  !F(WLAB.NE.C4EQ)  GO  TO  3300 
IF  (C4SWCH.EQ.0)  GO  TO  320 
ERFL AG- 1 
WRITE  (6,1170) 

WRITE  (6,1)  (CARD(I), 1-1,10) 

1170  FORMAT  (IH0»41H  REGNRD  FRMT1170  MORE  THAN  ONE  C4  FIELD.  /) 

IF  ( ZNSWC.EO.O)  GO  TO  390 
315  ERFL AG* 1 

WRITE  (6,1160) 

WRITE  (6,1)  (CARDU), 1-1,10) 

1180  FORMAT  (1H0,49H  REGNRD  FRMT1180  C4  FIELD  APPEARS  ON  A  ZONE  CARO/ 

GO  TO  390 
320  C4SWCH-1 

IF  (ZNSWC.NE.O)  GO  TO  315 

IF  (FIELDN.EQ.l)  C4( REGNO) -CARD (  4) 

IF  (FIELDN.EQ.2)  C4( REGNO)-CARD(  6) 

IF  (FIELDN.EQ.3)  C4( REGNO ) -CARD!  8) 

IF  (FIELDN.EQ.4)  C4( REGNO) -CARD( 10) 

GO  TO  390 

3300  IF(WLA8.NE.C5EQ)  GO  TO  330 
IF(C5$WCH.EQ.0)  GO  TO  3400 
ERFLAG-l 
WRITE  (6,11900) 

WRITE  (6,1)  (CARDU),  1-1,10) 

11900  FORMAT  ( 1H0, 41HREGNRD  FRMT11900  MORE  THAN  ONE  C5  FIELD.  /) 

I F ( ZNSWC.EO.O)  GO  TO  390 
3350  ERFLAG-l 

WRITE  (6,12000) 

WRITE  (6,1)  (CARDU), 1-1,10) 

12000  FORMAT  UH0,49H  REGNRD  FRMT12000  C5  FIELD  APPEARS  OP  A  ZONE  CARO/)p  | 
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GO  TO  390 
3400  C5SWCH*1 

IF(ZNSWC.NE.O)  GO  TO  3350 
IF  (FIELDN.EQ.l)  C5(REGN0)*CARD(  4) 

IF  (FIELDN.EQ.2)  C5(REGN0)*CARD(  6) 

IF  (FIELDN.EQ.3i  C5(REGN0)*CAR0(  8) 

IF  (FIELDN.EQ.4)  C5( REGNO) *CARD( 1 0) 

GO  TO  390 

330  IF  { WLAB.NE. EOEQ }  GO  TO  350 
IF  (E0SWCH.6Q.0)  GO  TO  340 
ERFLAG* 1 
WRITE  (6,11905 

WRITE  (6,1)  (CARD( I ) *  1*1 , 10} 

1190  FORMAT  (1H0,42H  REGNRO  FRMT1190  MORE  THAN  ONE  EO  FIELD  .  /) 

IF  (ZNSWC.EQ.O)  GO  TO  390 
335  ERFLAG*! 

WRITE  (6,1200) 

WRITE  (6,1)  (CARD! I), 1*1, 10) 

1200  FORMAT  (1H0,48H  REGNRO  FRMT1200  EO  FIELD  APPEARS  ON  ZONE  CARD.  /> 

GO  TO  390 

340  E0$WCH*1  / 

IF  (ZNSWC.NE.O)  GO  TO  335 

IF  (FIELDN.EQ.l)  E0( REGNO )*CARD(  4)  | 

IF  (FIELDN.EQ.2)  f0( REGNO) *CARD(  6)  f 

IF  (FIELDN.EQ.3)  E0(REGN0)*CAR0(  8)  f 

IF  (FIELDN.EQ.4i  E0( REGNO )*CARD( 10)  K- 

GO  TO  390  . 

350  IF  (WLA8.EQ. BLANK)  GO  TO  570  i 

ERFLAG*  1 
WRITE  (6,1210) 

WRITE  (6,1)  (CARD( I), 1*1, 10) 

1210  FORMAT  (1H0,49H  REGNRO  FRMT1210  ILLEGAL  BCD  LABEL  ON  THIS  CARD./)  | 
GO  TO  390 
360  ZNSWC*0 

IF  (CARD(  D.NE.ZONEEB)  GO  TO  590  i 

ZNSWC*1 

370  IF  (RGNSW.NE.O)  GO  TO  35  ! 

WRITE  (6,1220) 

WRITE  (6,1)  (CARD( I), 1-1,10)  £ 

1220  FORMAT  (1H0,46H  REGNRO  FRMT1220  THE  FOLLOWING  CARD  SHOULD  BE 

1 » 27H  PRECEDED  BY  A  REGION  CARD.  /)  , 

ERFLAG*1 
GO  TO  35 

380  IF  (ZNSWC.NE.O)  GO  TO  400 

390  GO  TO  (640,650,660,670) ,FIELDN  * 

400  ERFLAG*! 

WRITE  (6,1230) 

WRITE  (6,1)  (CARD( I) *  I* 1 , 10) 

1230  FORMAT  (IH0,49H  REGNRO  FRMT1230  A  J  FIELD  APPEARS  ON  ZONE  CARD./) 


GO  TO  390 

410  IF  (FIELDN.EQ.l)  RVAL-CARDl  4)  * 

IF  (FIELDN.EQ.2)  RVAL*CARD(  6)  ! 

IF  (FIELDN.EQ.3)  RVAL*CARD(  8) 

IF  (FIELDN.EQ.4)  RVAL*CARD( 10)  ’ 

GO  TO  390 

420  IF  (UZWCH.EQ.O)  GO  TO  425 

ERFL AG* 1  t 
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WRITE  16,1240) 

WRITE  (6,1)  (CARD( I), 1*1, 10) 

1240  FORMAT  (1H0,42H  REGNRD  FRNT1240  TWO  U  FIELDS  FOR  A  ZONE.  /) 

GO  TO  390 
425  UZWCH-1 

IF  (FIELON.EQ.l)  UZAL«CARD(  4i 

IF  (FIEL0N.EQ.2)  UZAL-CARDI  6) 

IF  (FIEL0N.EQ.3)  UZAL«CARD(  8) 

IF  (FIELDN.E0.4)  UZAL*CARD( 10 ) 

GO  TO  390 

430  IF  (TZWCH.EQ.O)  GO  TO  440 
ERFLAG*! 

WRITE  (6,1250) 

WRITE  (6,1)  (CARD( I) ,I«1,10) 

1250  FORMAT  (1H0,49H  REGNRO  FRMT1250  MORE  THAN  ONE  T  FIELD  FOR  ZONE./ 
GO  TO  390 

440  IF  (12000. NE.O)  O'  TO  541 

441  TZWCH-l 

IF  (FIELON.EQ.l)  TZAL«CARD(  4) 

IF  (FIEL0N.EQ.2)  TZAL*CARD(  6) 

IF  (FIELDN.EQ.3)  TZ AL»CARD(  8) 

IF  (FIELDN.EQ.4)  TZAL«CARD( 10) 

GO  TO  390 

450  IF  (MZWCH.EO.O)  GO  TO  460 
ERFLAG* 1 
WRITE  (6,1260) 

WRITE  (6,1)  (CAR 0(1), 1*1, 10) 

1260  FORMAT  (IH0,49H  REGNRD  FRMTI260  KORE  THAN  ONE  M  FIELD  FOR  ZONE./ 
GO  TO  390 
460  MZWCH* 1 

IF  (FIELON.EQ.l)  DNZAL*CARD(  4) 

IF  (FIELDN.EQ.2)  DMZAL«CARD(  6) 

IF  (FIELDN.EQ.3)  DMZAL*CARD(  8) 

IF  (FIELDN.EQ.4)  DMZ AL*CARD( 10 ) 

GO  TO  390 

470  IF  (VZWCH.EQ.O)  GO  TO  480 
ERFLAG* 1 
WRITE  (6,1.270) 

WRITE  (6,1)  (CARD(I), 1*1,10) 

1270  FORMAT  (1H0,49H  REGNRD  FRMT1270  KORE  THAN  ONE  V  FIELD  FOR  ZONE./ 
GO  TO  390 
480  VZWCH*1 

IF  (FIELON.EQ.l)  VZAL*CARD(  4) 

IF  (FIEL0N.EQ.2)  VZAL*CARD(  6) 

IF  (FIELDN.EQ.3)  VZAL-CARDI  8) 

IF  (FIELDN.EQ.4)  VZAL-CARD( 10) 

GO  TO  390 

490  IF  (RHZWCH.EQ.O)  GO  TO  500 

erflag-i 

WRITE  (6,1280) 

WRITE  (6,1)  (CARD( I),I*l,LO) 

1280  FORMAT  (1H0,49H  REGNRD  FRMT1280  MORE  THAN  ONE  RH  FIELD  FOR  ZONE-/) 
GO  TO  390 
500  RHZWCH* 1 

IF  (FIELON.EQ.l)  RHZAL*CARD(  4) 

IF  (FIELDN.EQ.2)  RHZAL*CARD(  6) 

IF  (FIELDN.EQ.3)  RHZAL*CARD(  8) 
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IF  (FIELDN.EQ.4)  RHZAL*Ck‘ £( 10) 

GO  TO  390 

510  IF  (PZWCH.EQ.O)  GO  TO  520 
ERFL AG* l 
WRITE  (6, 1290) 

WRITE  (6,1)  (CARD(I), 1-1,10) 

1290  FORMAT  (1H0,49H  REGNRD  FRMT1290  MORE  THAN  ONE  P  FIELO  FOR  ZONE./) 
GO  TO  390 
520  PZWCH-l 

IF  (FIELON.EQ.l)  PZAL*CARO(  4) 

IF  (FIELDN.EQ.2)  PZAl*GARD(  6) 

IF  (FIELDN.EQ.3)  PZAL-CARD(  8) 

IF  (FiELDN.EQ.4)  PZAt*CARD( 10 ) 

GO  TO  390 

530  IF  (EZWCH.EO.O)  GO  TO  540 
ERFLAG* 1 
WRITE  (6,1300) 

WRITE  (6,1)  (CARD( I) ,1*1,10) 

1300  FORMAT  (IH0,49H  REGNRD  FRMT1300  MORE  THAN  ONE  E  FIELO  FOR  ZONE./) 
GO  TO  390 

540  IF  ( 12000. NE.O)  GO  TO  441 

541  EZWCH-1 

IF  (FIELON.EQ.l)  EZAl-CARDI  4) 

IF  (FIEL0N.E0.2)  EZAL*CARD(  6) 

IF  (FIELDN.EQ.3)  EZAL-CARDI  8) 

IF  (FIELDN.EQ.4)  EZ AL-CARD( 10) 

GO  TO  390 

550  IF  (KZWCH.EQ.O)  GO  TO  560 
ERFLAG* l 
WRITE (6, 1310 ) 

WRITE  (6,1)  (CARD( 11,1*1,10) 

1310  FORMAT  (1H0.49H  REGNRD  FRMT1310  MORE  THAN  ONE  K  FIELD  FOR  ZONE./J 
GO  TO  390 
560  KZWCH* 1 

IF  (FIELDN.EQ.i)  KZAL-CAROl  4) 

IF  (FIELDN.EQ.2)  KZAL*CARD(  6) 

IF  (FIELDN.EQ.3)  KZAL*CARD(  8) 

IF  (FIELDN.EQ.4)  KZAL-CARD(IO) 

GO  TO  390 

570  READ  (5,1)  ( C4,RD(  I ) ,  1*1, 10) 

IP(NS.NE.O)  GO  TO  5 
IF  (ZNSWC.NE.O)  GO  TO  580 
575  CALL  GRIDGN 

CALL  ZONGEN(C) 

GO  TO  5 

580  CALL  ZNGET 

CALL  ZONGEN(C) 

GO  TO  620 

590  IF  (ZGETSW.NE.O)  GO  TO  600 

IF  (CAR0( 1).EQ. REGION)  GO  TO  20 
IF  (12000. EQ.O)  GO  TO  593 
Ji  *  JREG(REGN0-l)+2 
J2  *  JREG(REGNO)  ♦  l 
IF  (REGNO. EQ.l)  Jl*  2 
DO  591  I*J1,J2 
EL ( I )  *  EG ( I ) 

EG ( I )  *  TEM(I) 
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TEMH)  *  EL ( 1  ) 

591  EL ( I )  *  0. 

593  N*EG*REGN0 
JMAX*JREG(NREG) 

IF  (IHY0.NE.0)  GO  TO  594 
IF(REGNO.EQ. 1)  GO  TO  594 
REGNO* 1 

592  JZ*JREG(REGNO) 

T  AN  ( J  Z  ♦  1 )  *  (  •  5<MTEN(JZ  +  2)**4*TEM(JZ+1)  **4  )  )**.25 
CALL  PEK  (3»MAT(JZ*l),TAM(JZ+l),VL(JZ+l),JZ,0»KM(JZ+l)»C) 

CALL  PEK  (3,HAT(JZ+2) ,TANl JZ+l) ,VL(JZ+2), JZ,0,KP( JZ+1) ,C) 

IF  ( REGNO.GE .NREG-1 )  GO  TO  594 
REGNO*REGNO+ 1 
GO  TO  592 

594  JZ*0 

GO  TO  596 

595  DHESS(JZ+1)*0.5*(0MASS(  JZ*1 )+DMASS( JZ+2 )  ) 

596  IF  (IHYO.NE.O)  GO  TO  597 
TEMSQ(JZ+2)*TEN< JZ+2)**2 

TEH3 ( JZ+2 ) *  TEM( JZ+2)*TENSQ( JZ  +  2) 

TEN4( JZ+2 ) *  TEM(JZ+2)*TEM3( JZ+2) 

IF  (JZ.EQ.O)  GO  TO  597 

KDM(JZ+l)*0.5*(DMAS$(JZn>*KM(JZ-H)+DMASS(jZ+2)*KP{JZ+l>  ) 

ELC  JZ+l)*R(  JZ+1  J  ♦*(  2*(0ELTA-l)  )*(TEM4{  JZ+1  )-TEM4(JZ+2)  )/KDN(  JZ-* 

597  IF  (JZ.GE.JMAX-1)  GO  TO  598 
JZ-JZ+1 

GO  TO  595 

598  RETURN 

600  IF  I JREG( REGNO- 1 ).LT.JREG( REGNO )  )  GO  TO  610 
ERFLAG* 1 
WRITE  (6,1320) 

WRITE  (6,1)  (CARD! I), 1*1, 10) 

1320  FORMAT  (1H0,44H  REGNRD  FRMT1320  SHOULD  HAVE  A  ZONE  CARD  TO 
1 , 26H  COMPLETE  GRID  DEFINITION.  /) 

610  ZGETSW-0 
GO  TO  590 

620  IF  (’GETSW.EQ.O)  GO  TO  630 
JREG(REGNO)* JORIG+NZONE 
622  IF  ( JORIG.LE .0 )  GO  TO  625 
IF( IHYO.NE.O)  GO  TO  625 

TAM{ J0RIG+1)*(.5*(TEM( JORIG+2)**4+TEM(JORIG*l)**4) )*4.25 
CALL  PEK  (3»MAT( JORIG+l) ,TAM( J0RIG+1) ,VL( JORIG+1) , J0RIG,0, 
l  KN( JQRIG+l ) »C) 

CALL  PEK  (  3,  MAT(  JORI G+2 ) , TAM{ JORIG+ 1 ) » VL (  JORIG+2 )  ,  JOR IG,0, 

1  KP ( JORIG+1 ) ,C ) 

625  JOR I G* JOR I G+N ZONE 
GO  TO  360 

630  IF  (JORIG.LT. JREG(REGNO)-NZONE)  GO  TO  622 
GO  TO  610 
640  FIELDN=2 

WLAB*CARDl 5) 

GO  TO  55 
650  FIELDN*3 

WLAB*CARD( 7) 

GO  TO  55 
660  F IELDN*4 

WLAB*CARD( 9) 
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GO  TO  55 

670  READ  <5*1}  (CARD( I  i , 1*1,10) 

IF  (CAROt 1).E0. BLANK)  GO  TO  680 
IF  (ZNSWC.EQ.O)  GO  TO  575 
GO  TO  580 

680  IF  (ZNSWC.EQ.O)  GO  TO  50 
ERF LAG* l 
WRITE  (6,1330) 

WRITE  (6,1)  (CARDm,2»l«!GJ 

1330  FORMAT  (1H0,45H  REGNRD  FRMTU30  ZONE  CARO  SHOULO  NOT  HAVE  A 
1,14H  CONTINUATION.  /) 

GO  TO  370 
END 


i 

} 

t 


5£LJl 


E.2WO*  * 


CONVgT  t*4* 
TO  E2;AL 


HRlTt  Mfc'bSA&e. 


2bO 


K.SWCH  »  1 


CoMVRT  |M  - 

TO  KVAL 


*4  WRITE,  ME^fcCaE. 


S  (>o 


K2WCvi  *  1 


^ »OMVRT  ,H- 
V  TO  K*,Al 


WR»T&  MESSAGE, 


WglTfc  Message. 


ksite  message. 


VMRlTE  M65SA6& 
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15.  ZNGET 

ZNGET  Is  called  by  REGNRD  to  generate  R's  and  U's  when  handling 
ZONE  cards . 

UBf-TC  ZNGET  REF 

SUBROUTINE  ZNGET 

C  COMMON  CARDS  LABELED  /IKA1/  AND  /IKA1A/  GROUPS  TO  BE  PLACED  HERE 

C  INTEGER  CARD  GROUP  TO  BE  PLACED  HERE 

REAL  KVAL,  KZ  AL ,  KMIN,  KMAX,  KDM,  KP,  KM 
COMMON  /RC/  R (  1 ) 

COMMON  /UC/  U(l) 

IF  ( ZGETSW.NE.O)  GO  TO  ?0 
GO  TO  50 
10  RETURN 

20  IF  (RSWCH.NE.O)  GO  TO  70 
IF  (ORSWCH.NE.O)  GO  TO  30 
ERFLAGM 

WRITE  (6,1000)  REGNO 

1000  FORMAT  (53H0  ZONGET  FRMTIOOO  ZONING  INFORMATION  ON  'ZONE*  CARC 
l  38H  NOT  GIVEN  WHEN  REQUIRED.  REGION  NO.-  15) 

GO  TO  50 
30  JZ= JOP I G+ I 
NZ=  1 

AO  J=  JZ-JURIG 
DJ=J 

R I JZ*  1  )  =  OR*OJ  ♦R'JQRIG+l) 

IF  (N7.GE.NZ0NE)  GO  TO  50 

JZ*JZ*1 

NZ=»NZ*1 

GO  TO  AO 

50  RRG  (REGNO  )*R(JZM  ) 

IF  (UZWCH.EO.O)  GO  TO  10 
JZ= JORIG+  l 
NZ=  1 

55  IF  (UZWCH.EO.O)  GO  TO  60 
0 ( J  Z+ 1 ) =UZ At 
GO  TO  65 
60  U( JZ+1 )=UVAL 
65  IF  (NZ.GE.NZONF)  GO  TO  10 
NZ-NZ  +  l 
JZ  =  JZM 
GO  TO  55 

70  IF  (NZONE.LE.i)  GO  TO  BO 
?5  FRFLAG=l 

WRITE  (6,1010)  REGNO, JORIG 

1010  F0RMAT(62H0  ZONGET  FRMT1010  CAN'T  DEFINE  MORE  THAN  ONE  ZONE 

1  A1H  WHEN  R  IS  GIVEN  FOR  A  ZONE.  REGION  N0.=  I5,13H  LAST  J-VAtUF 

2  2H  =  15) 

30  -U^JURIG-M 

li  ;  /  M  ’.  =  PVAL 
G'3  ru  50 
END 


u  u 
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16.  GRIDGN 

GRIDGN  is  called  by  REGNRD  to  generate  R's  and  U's  when  handling 

REGION  cards. 

URFTC  OR  10 ON  REF 

SUBROIJT INF  GRIDGN 

COMMON  r ARDS  LABELED  /IKA1/  AND  /IKAIA/  GROUPS  TO  BE  PLACED  HERI 
INTEGER  uARD  GROUP  TO  BF  PL ACFO  HERE 
REAL  KVALt  KZAL,  KM  IN*  KMAX,  KDM,  KP,  KM 
COMMON  /RC/  R ( l ) 

COMMON  /UC/  um 
IFI^EGNO.NE.l  )  GO  TO  r> 

JL  =  0 

GO  TO  11 

5  JL=JREG(REGN0-1) 

11  JR=JREG(REGNO) 

J= JR- JL 
D  J  =  J 

IF  (JSWCH.EQ.O)  GO  TO  60 
IF  I DRSWCH. 60.0 )  GO  TO  30 
D=DR*DJ 

IF  (REGNO. EQ.i)  GO  TO  lb 
RRG ( REGNO ) =D+RRG ( REGNU- 1 ) 

GO  TO  10 

15  RRG ( REGNO ) =D+R (  1  i 

10  Jc= JL* 1 
20  J=  JZ-JL 
DN=  J 
D=DN*DR 

IF  (REGNO. EQ.I)  GO  TO  25 
R ( JZ*1 )  =  RRG(REGNO-l)  +  D 
GO  TO  27 

25  R(JZ+l)=K(  U+D 
27  IF  (JZ.GE.JR)  GO  TO  80 
JZ=JZ+i 
GO  TO  20 

30  IF  (RSWCH.EQ.O)  GO  TO  40 
IF  (REGNO. EQ.I)  GO  TO  35 
DR*  RVAL-RRG(REGNO-l ) 

GO  TO  36 

35  DR*RVAL-R(l) 

36  DR*DR/DJ 

RRG( REGNO ) =RVAL 
GO  TO  10 
40  ERFLAG*! 

WRITF  (6,1000)  REGNO 

1000  FORMAT  (45H0  GRIDGN  FRMT1000  INSUFF.  DATA  FOR  REG.  NO.  15, 

1  16H.  ONLY  J  INPUT.  ) 

50  ZGE  T SW* 1 

IF  (RSWCH.NE.O)  GO  TO  76 
JREG ( REGNO ) =0 
GO  TO  80 

60  IF  (DRSWCH. EO.O)  GO  TO  50 


r 


IF  (RSWCH.NE.O)  GO  TO  70 
ERFLA6* 1 

WRITE  ( 6» 1010)  REGNO 

1010  FORMAT  ( 52H0  GRIOGN  FRMT1010  INSUFF.  DATA  FOR  REGION.  ONLY  DR 
l  18H  INPUT.  REG.  NO.*  15) 

GO  TO  50 

70  IF  ( REGNO. EQ. 1 )  GO  TO  72 
D*RVAL~RRG<REGN0-1) 

GO  TO  74 
72  D*RVAL-R(l) 

74  D*D/DR 
J*D 

JREGIREGNOI* JL+J 
JR* JREG(REGMO) 

RRG (REGNO ) *RVAL 
GO  TO  10 

76  RRG(REGNO)*RVAl 

80  IF  CUSWCH.NE.O)  GO  TO  90 
UVAL*0. 

90  IF  ( ZGETSW.NE.O)  GO  TO  100 
JZ*JL+1 

95  U  ( JZ  + 1 ) *UVAL 

IF  (JZ.GE.JR)  GO  TO  100 
JZ-JZ+1 
GO  TO  95 
100  RETURN 
END 


-186- 


17.  ZONGEN 

ZONGEN  is  called  by  REGNRD  to  generate  the  zone  variables  other 
than  R  aid  U  for  all  the  zones. 

f-IBFTC  ZONGEN  REF 

SUBROUTINE  ZONGEN(C) 

C  COMMON  CAROS  LABELED  /IKA1/  AND  /IKA1A/  GROUPS  TO  BE  PLACED  HI 

C  INTEGER  CARO  GROUP  TO  BE  PLACFD  HERE 

REAL  KVAL,  KZAL,  KMIN,  KMAX,  KDM,  KP,  KM 
COMMON  /RC/  R ( 1  > 

COMMON  /TEMC /  TEMIl) 

COMMON  /T AMC /  T AM (  1) 

COMMON  /VLC/  VLlli 
COMMON  /PRC/  PR ( 1 ) 

COMMON  /EGC/  EG I  1) 

COMMON  /KPC/  KP I l) 

COMMON  /KMC/  KMI 1) 

COMMON  /DMASSC/  f)MASS(i) 

COMMON  /MATC /  MAT ( 1 ) 

INTEGER  PCOMP » ECOMP 
DIMENSION  Cin 
IF  (ZNSWC.NE.O)  GO  TO  420 

IF  (REGNQ.Eg.il  GO  TO  2 

JZ*JREG(REGN0-1) 

GO  TO  4 
2  JZ*0 

4  JL*  JZ 

JR* JREG(REGNO) 

ZNQ$W*0 

IF  (TSWCH.EQ.O)  GO  TO  10 

IF  (MSWCH.Nfc.O)  GO  TO  20 

IF  (VSWCH.NF.O)  CO  TO  5 

IF  (RHSWCH.FO.O)  GO  TU  60 
VVAL= 1 . /RHVAL 

5  PCOMP= l 
GO  TU  47 

10  IF  (MSWCH.EO.O)  GO  TO  120 
IF  (ZGETSW.EQ.O)  GO  TO  30 
ERFL AG= 1 

WRITF  (6,1000)  RFGNO 

1000  FORMAT  UH0,44H  ZONGEN  FRMT1000  INSUFFICIENT  INFORMATION  - 
1.34H  CAN*  T  COMPUTE  V  FUR  REGION  NUMBER  ,15  /) 

WRITE  (6,1)  (CARD( I ) , 1=1, 10) 
l  FGRMAT  ( A6,F6.0,4< A3,f 12.6)) 


GO 

TO 

260 

20 

IF 

( ZGETSW 

.NE 

.0)  GO  TO  260 

ASSIGN 

5 

TO 

LOC 

GO 

TO 

200 

30 

assign 

40 

TO 

LOC 

GO 

TO 

20  0 

40 

IF 

(PSWCH. 

EQ. 

0)  GO  TO  50 

Jtl=JL*l 

MAT ( JL 1+ 1 ) =NEOS 

CALL  GFTVARl 1 , 2 , PVAL , VVAL , JL l , TVAL ,C ) 


1 


•  V 
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45  PC0MP*0 
47  ECOMP-1 
KCOMP-1 
GO  TO  260 

50  IF  (ESWCH.EQ.O)  GO  TO  60 
JLi*JL*l 
MAT( JL1  +  U-NF0S 

CALL  GETVAR (2*2, EVAL , VVAL , JL 1 , T VAL ,C ) 

55  PCOHP-l 
ECOMP*0 
KCOMP-1 
GO  TO  260 

60  IF  (KSWCH.EQ.O)  GO  TO  70 
JLl-JLM 
MAT ( JLl+1 )*NEOS 

CALL  GETVAR  ( 3,2 ,KVAt, VVAL »JL 1 , TVAL ,C) 

65  PCOMP-1 
ECOMP-1 
KCOMP-O 
GO  TO  260 
70  ZNQSW-2 

GO  TO  260  t 

80  IF  (PSWCH.EQ.O)  GO  TO  90 
JL l*JL*l 
MAT ( JL 1+ I ) *NEOS 

CALL  GETVAR  ( I » l , P VAL, TVAL  « JLl « VVAL, C ) 

GO  TO  45 

90  IF  (ESWCH.EQ.O)  GO  TO  100  1 

JLl-JL+l 
MAT ( JLl* 1 ) *NEOS 

CALL  GETVAR  ( 2, l , EVAL, TVAL , JLl , VVAL.C )  j 

GO  TO  55 

100  IF  (KSWCH.EQ.O)  GO  TO  110 

JLl*JL+l  1 

MAT ( JLl* l )=NEOS 

CALL  GETVAR  (3,1 ,KVAL, TVAL, JLl, VVAL, C> 

GO  TO  65  | 

110  ZNQSW*l  [ 

GO  TO  260 

120  IF  ( VSWCH.NE.O)  GO  TO  40 
IF  (RHSWCH.EQ.O)  GO  TO  130 
VVAL* 1 • /RHVAL 
GO  TO  40 

130  IF  (PSWCH.EQ.O)  GO  TO  160 
IF  (ESWCH.EQ.O)  GO  TO  140 
CALL  GETTV  ( 1 , 2, JL,PVAL, EVAL , TVAL, VVAL ) 

135  PC0MP=0 
EC0MP*0 
KCQMP*1 
GO  TO  260 

140  IF  (KSWCH.EQ.O)  GO  TO  150 

CALL  GETTV  (  l , 3, JL ,PVAL,KVAL ,TVAL, VVAL) 


f 

r 
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145  PC0HP=0 
ECOMP* 1 
KC0MP*0 
GO  TO  260 
150  ZNQSW-4 
GO  TO  260 

160  IF  ( ESWCH.EQ.O)  GO  TO  180 
IF  (KSWCH.60.0)  GO  TO  170 
CALL  GETTV  ( 2 , 3, JL ,E VAL , KVAL ,  TVAL.VVAL) 

165  PC0MP«1 
ECOHP-O 
KCOHP-O 
GO  TO  260 
170  ZNQSW«3 
GO  TO  260 

180  IF  (KSWCH.EQ.Q)  GO  TO  190 
ZNQSW»5 
GO  TO  260 
190  ZNQSW*6 
GO  TO  260 
200  OELT-DELTA 

IF  (REGNO. EO.l)  GO  TO  210 
D*RRG( REGNO- 1 ) 

GO  TO  215 
210  D*R (  1 ) 

215  IF  (DELTA. GT.l)  GO  TO  218 
D»RRG(REGNO)-D 
GO  TO  240 

218  IF  (DELTA. GT. 2)  GO  TO  220 

D*  1RRG(REGN0)-D)*(RRG(REGN0)*D) 

GO  TO  240 

220  D*  (RRG(REGN0)-D)*(RRG(REGN0)**2+RRG  (REGNO)  *D->»-D**2 ) 
240  VVAL*D/DELT/DMVAL 
GO  TO  LOC,  (5,40) 

260  IF  (ZNSWC.NE.O)  GO  TO  820 
IF  (ZGETSW.NE.O)  GO  TO  300 
JZ«JL 

262  NAT( JZ*2)*NE0S 

IF  (JZ.GE.JR-1)  GO  TO  265 

JZ»JZ*1 

GO  TO  262 

265  IF  ( ZNQSW.GT . 5 )  GO  TO  290 

IF  (ZNQSW.GT. 4)  GO  TO  310 

IF  (ZNQSW.GT. 3)  GO  TO  320 

IF  (ZNQSW.GT. 2>  CO  TO  340 

IF  ( ZNQSW.GT . 1 )  GO  TO  360 

JZ-JL 

270  TEM<  JZ  +  2)*TVAL 

IF  (JZ.EQ.JL)  GO  TO  275 
I F ( IHYD.EQ.0)TAW( JZ+1)=TVAL 
275  IF  (JZ.GE.JR-1)  GO  TO  280 
JZ*JZ+1 
GO  TO  270 


280 

IF 

( ZNQSW 

.EQ.O) 

GO 

TO 

360 

290 

RETURN 

300 

IF 

(ZNQSW 

•NE.O) 

GO 

TO 

290 

GO 

TO  370 

310 

JZ- 

JL  +  l 

IF 

( IHYO. 

NE.O) 

RETURN 

315 

KP( 

JZ*1  )* 

KVAL 

KM( 

JZ+1 )* 

KVAL 

IF 

(JZ.GE 

.  JR-l ) 

GO 

TO 

290 

JZ- 

JZ*l 

GO 

TO  315 

320 

JZ- 

JL 

325 

PR  ( 

JZ+2)* 

PVAL 

IF 

(JZ.GE 

.JR-l) 

GO 

TO 

330 

JZ- 

JZ*l 

GO 

TO  325 

330 

IF 

(ZNQSW 

.NE.O) 

GO 

TO 

290 

340 

JZ- 

JL 

345 

EG( 

JZ*2>- 

EVAL 

IF 

( JZ.GE 

. JR- 1 ) 

GO 

TO 

350 

JZ- 

JZ  +  1 

GO 

TO  345 

350 

IF 

(ZNQSW 

.NE.O) 

GO 

TO 

290 

GC 

TO  MU 

360 

JZ- 

JL 

365 

VL( 

JZ*2)- 

VVAL 

IF 

( JZ.GE 

•  JR-l ) 

GO 

TO 

368 

JZ* 

JZ*1 

GO 

TO  365 

368  ASSIGN  370  TO  LLC 
GO  TO  401 

370  IF  (PCOHP.dQ.O)  GO  TO  380 

CALL  PEK  ( lfNEOS,TVAL,VVAL,JL,OfPVAL»C> 

380  IF  (ECOMP.EQ.O)  GO  TO  390 

CALL  PEK  (2tNEOS,TVAL,VVAL,JLfO,EVAL,C) 

390  IF  (KCONPoEQ.O)  GO  TO  400 

IFt IMYO.EQ.OJCALL  PEK  (  3, NEOS, TVAL  t VVAL ,  JL ,0,KVAL,C) 
400  IF  UGETSW.NE.O)  GO  TO  290 
IF  UNQSW  .EQ.O)  GO  TO  320 
GO  TO  290 

401  JZ*JL 
DELT-QELT  A 

402  D«R(JZ+2)-R(  JZ  +  1) 

IF  (DELTA. GT.l)  GO  TO  403 
GO  TO  405 

403  IF  (DELTA. GT. 2)  GO  TO  404 
D-D*(R( JZ*2)+R(JZ+1) ) 

GO  TO  405  _ 

404  0*D*(R( JZ+2>**2*R( JZ+2)*R( JZ+1)*R( JZ*l>**2) 

405  IF  (ZNSWC.EQ.O)  GO  TO  409 
DMASS(JZ*2)"0/DELT/VZAL 
GO  TO  407 

409  DNASS ( JZ+2 )-0/DELT/VVAL 

IF  (JZ.GE. JR-1)  GO  TO  406 
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408 

JZ* 

‘JZ  +  1 

GO 

TO  402 

406 

GO 

TO  LLC, 

(370, 

260) 

407 

IF 

( JZ.GE. 

JR) 

GO 

1  TO 

l  406 

GO 

TO  408 

420 

JR* 

>JORIG*NZONE-l 

JZ 

«  JORIG 

IF 

( T  ZWCK. 

NE. 

U) 

GO 

TO 

740 

IF 

(MZWCH. 

NE. 

0) 

GO 

TO 

425 

IF 

i VZWCH . 

NE. 

0) 

GO 

TO 

660 

IF 

(RHZWCH 

.NE 

.0) 

GO 

i  TC 

1  44  0 

IF 

(PZWCH. 

NE. 

0) 

GO 

TO 

450 

IF 

(EZWCH. 

NE. 

0) 

GO 

TO 

530 

IF 

(KZWCH. 

NE. 

0) 

GO 

TO 

600 

IF 

(ZNQSW. 

EQ. 

0) 

GO 

TO 

870 

ERFLAG-1 

WRITE  16,1020)  REGNO, JORIG 
WRITE  (6,1)  (CARD! I), 1=1, 10) 

1020  FORMAT  (IH0,46H  ZONGEN  FRMT1020  NEITHER  REGION  NOR  ZONE  DATA 
1,  20H  LAST  J  VALUE  WAS  15  /) 

GO  TO  290 

425  ASSIGN  660  TO  LOC 

430  0ELT=0ELT A 

IF  (DELTA. GT.l)  GO  TO  432 
0  «  R ( JZ  +  2  )-R ( JZ  + 1 ) 

GO  TO  436 

432  IF  (DELTA. GT. 2)  GO  TO  434 

0  »  (R(JZ+2)-R(JZ*l) )*(R(JZ+2)+R(JZ*l) ) 

GO  TO  436 

434  D  «  (R(JZ*2)-R( JZ*1) ) * ( R ( JZ+2 ) **2+R ( JZ+2 ) *R ( JZ* l ) +R ( JZ+l ) **2 ) 

436  VZAL«D/DELT/OMZAL 

GO  TO  LOC,  (660,675) 

440  VZAL*1 ./RHZAL 
GO  TO  660 

450  IF  (EZWCH.EO.O)  GO  TO  460 

455  CALL  GETTV  (  1 , 2, JOR I G, PZ AL , E Z AL ,TZ AL , VZ AL > 

PCOMP-Q 
ECOMP*0 
XCOMP* 1 
GO  TO  720 

460  IF  (KZWCH.EQ.O)  GO  TO  470 

465  CALL  GETTV  (  l , 3, JORI G , PZ AL ,KZ AL , TZ AL , VZAL ) 

PCQMP*0 
ECOMP* l 
KCOMP*0 
GO  TO  720 

470  IF  (ZNQSW.EQ.3)  GO  TO  500 

IF  ( ZNQSW. EQ , 5 )  GO  TO  510 

IF  (ZNQSW.EQ.l)  GO  TO  480 

IF  (ZNQSW.E0.2)  GO  TO  490 

IF  (ZNQSW.EQ.O)  GO  TO  520 

ERFLAG* 1 

'(RITE  (6,  1030)  REGNO, JORIG 
WRITE  (6,1)  (CARDU)  ,  1  =  1,10) 


IS1- 


1030  FORMAT  (IH0,48H  ZONGEN  FRMT1030  ONLY  f  INPUT  INSUFFICIENT  DATA 
1,12H  REG.  NO.*  I5,12H  JVALUE-  15  /) 

GO  TO  290 
480  TZAL-TVAL 
GO  TO  710 
490  VZAL-VVAL 
GO  TO  660 
500  EZAL*£¥AL 
GO  TO  455 
510  KZAL-KVAL 
GO  TO  465 
520  JZ-JORIG 
525  PR(  JZ*-2  )*PZAL 

IF  (JZ.EQ.JR)  GO  TO  290 

JZ-JZ+l 

GO  TO  525 

530  IF  (KZWCH.EQ.O)  TO  540 

535  CALL  GEi'TV  (  2, 3,  JOR IG ,  EZAL  ,KZAL ,  TZAL » VZAL) 

PCQHP*1 
ECOMP-O 
KC0MP*0 
GO  TO  720 

540  IF  (ZNQSW.EQ.O)  GO  TO  550 

IF  (ZNQSW.EQ. 1)  GO  TO  560 

IF  { ZNQSW.EQ.2 )  GO  TO  570 

IF  (ZNQSW.EQ.4i  GO  TO  580 

IF  (ZNQSW.E0.5i  GO  TO  590 

ERFLAG*! 

WRITE  l  6, 1040 )  REGNO, JORIG 
WRITE  (6,1)  (CAROtl), 1*1,10) 

1040  FORMAT  (1H0,50H  ZONGEN  FRMT1040  ONLY  E  INPUT  -  INSUFFICIENT  DATA 
1 , 10H  REG.  NO.*  I  5 , 16H  LAST  JVALUE*  15  /) 

GO  TO  290 
550  JZ* JORIG 
555  EG( JZ+2 )*EZAL 

IF  (JZ.GE.JR)  GO  TO  290 
JZ-JZ+1 
GO  TO  555 
560  TZAL-TVAL 
GO  TO  770 
570  VZAL*VVAL 
GO  TO  690 
580  PZAL*PVAL 
GO  TO  455 
590  KZAL-KVAL 
GO  TO  535 

600  IF  (ZNQSW.EQ.O)  GO  TO  610 
IF  ( ZNQSW.EQ. 1 )  GO  TO  620 
IF  (ZNQSW.EQ.2)  GO  TO  630 
IF  (ZNQSW.EQ. 3)  GO  TO  640 
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IF  (ZNQSW.E0.4)  GO  TO  650 
ERFLAG-1 

WRITE  16,10501  REGNO, JORIG 
WRITE  16,1)  (CAROU)  ,1-1,10) 

1050  FORMAT  (1H0,50H  ZONGEN  FRMT1050  ONLY  K  INPUT  -  INSUFFICIENT  OAT 
1, 10H  REG.  NO.-  1 5, 17H  LAST  J  VALUE-  15  /) 

GO  TO  290 
610  JZ-JORIG 

I F ( IHYD.NE.Q)  RETURN 
615  KP(JZ+l)«XZAL 

IF  (JZ.GE.JR)  GO  TO  290 
JZ-JZ+1 
GO  TO  615 
620  TZAL-TVAL 
GO  TO  790 
630  VZAL-VVAL 
GO  TO  680 
640  EZAL-EVAL 
GO  TO  535 
650  PZAL-PVAL 
GO  TO  465 

660  IF  (PZWCH.NE.O)  GO  TO  700 
IF  (EZWCH.NE.O)  GO  TO  690 
IF  (KZWCH.NE.O )  GO  TO  680 
IF  (ZNQSW.LE.l)  GO  TO  670 
IF  (ZNQSW.NE.3)  GO  TO  662 
EZAL-EVAL 
GO  TO  690 

662  IF  (ZNQSW.NE.4)  GO  TO  664 
PZAL-PVAL 
GO  TO  700 

664  IF  (ZNQSW.GT.5)  GG  TO  666 
KZAL-KVAL 
GO  TO  680 

666  ERFLAG-l 

WRITE  16,1060)  REGNO, JORIG 
WRITE  (6,1)  (CAROU),  1-1,10) 

1060  FORMAT  (1H0,46H  ZONGEN  FRMT1060  NEITHER  REGION  NOR  ZONE  OATA 
1 , 37H  SUFFICIENT  TO  DEFINE  T.  REGION  NO.-  I5,16H  LAST  JVALUE- 
2  15  /) 

GO  TO  290 
670  TZAL-TVAL 
675  PCOMP-1 
ECOMP-l 
XCOMP-1 
GO  TO  720 
680  PCOMP-l 
ECOMP-l 
KCOMP-0 
JORIGl-JORIG+1 
MAT ( JOR I G 1+ l ) -NEOS 

CALL  GETVAR  (3,2,KZAL,VZAL,JORIGl,TZAL,C) 

IF  (IHYD.EQ.O)  TAM( JORIG+1)  »  TZAL 
GO  TO  720 
690  PCOMP-1 
ECOMP-O 
KCOMP-1 
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700 


710 


720 

725 

730 

732 

740 

750 

760 

770 


780 

790 


800 


J0RIG1=J0RIG+1 
MAT  (J0RIG1>1)*NF0S 

CALL  GETVAR  (2, 2, EZAL,VZAL, JORIGl, TZAL»C) 

GO  TO  720 

PC0MP=0 

6C0MP* 1 

KCOMP=l 


JORIGl=JORIG+l 
MAT ( JORIG1+1 )=NE0S 

CALL  GETVAR  { 1,2»PZAL,VZAL, JORIGl, TZAL, C> 
GO  TO  720 
JORIGUJORIG+l 
MAT  ( JORIGl* l)*NEOS 

CALL  GETVAR  < 1 , 1 ,PZAL , TZAL , JORIGl , V2AL,C> 

PC0MP=0 

ECOMP=l 

KCOMP* 1 

JZ*JORIG 

TEM(JZ+2)«TZAL 

VL(JZ+2)=VZAL 

IF  (NZONE.LT. 2.0R.JZ.EQ. JORIGl  GO  TO  730 
IF  ( IHYD.EQ.O)  TAM( JZ*l )  *  TZAL 
IF  (JZ.GE.JRJ  GO  TO  732 
JZ*JZ*l 
GO  TO  725 
JZ-JORIG 
DELT=DELT  A 
ASSIGN  260  TO  LLC 
GO  TO  402 

IF  (MZWCH.EQ.O)  GO  TO  750 
ASSIGN  675  TO  LOC 
GO  TO  430 

IF  (VZWCH.NE.O)  GO  TO  675 
IF  (RHZWCH.EG.O)  GO  TO  760 
VZAL*l./RHZAL 
GO  TO  675 

IF  (PZWCH.EQ.O)  GO  TO  780 
GO  TO  710 
J0RIG1*J0RIG+1 
MAT ( JORIGl* 1 )*NFOS 

CALL  GETVAR  ( 2, 1 , EZAL.TZAL . JORIGl , VZAL»C) 
PCOMP*! 

ECOMP*0 
KC0MP=1 
GO  TO  720 

IF  (EZWCH.NE.OI  GO  TO  770 
IF  (KZWCH.EQ.O)  GO  TO  800 
JORIGUJORIG+1 
MAT ( JORIGl* I )*NEOS 

CALL  GETVAR  ( 3 » 1 ,KZAL , TZAL, JORIGl ,VZAL,C) 

PC0MP=1 

ECOMP*  L 

KCOMP*0 

GO  TO  720 

IF  (ZNQSW.EQ.O)  GO  TO  675 
IF  ( ZNQSW.EQ.2)  GO  TO  810 
IF  ( ZN0SW.NE.3)  GO  TO  802 
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EZAL*EVAL 
GO  TO  770 

802  IF  (ZNQSW.NE.4)  GO  TO  804 
PZAL=PVAL 
GO  TO  710 

804  IF  I ZNQSW.GT .5 )  GO  TO  806 
KZAL=KVAL 
GO  10  790 
806  ERFLAG=1 

WRITE  (6,1070)  REGNO, JORIG 
WRITE  (6,1)  (CAR0( 15,1=1,10) 

1070  FORMAT  (1H0,41H  ZONGEN  FRNT1070  NEITHER  REGION  NOR  ZONE 

1 , 36H  SUFFICIENT  TO  DEFINE  V.  REG.  NO.*  15,  16H  LAST  JVALUE* 
2  15  /) 

GO  TO  290 
810  VZAL*VVAL 
GO  TO  675 

820  IF  (PCOMP.EQ.O)  GO  TO  830 

CALL  PEK  ( 1 ,NEOS,TZAL, VZAL, JORIG,0,PZAL,C ) 

830  IF  (ECQMP.EQ.O)  GO  TO  840 

CALL  PEK  (2, NEOS,TZAL, VZAL, JORIG, 0,EZAL,C) 

840  IF  (KCOMP.EQ.O)  GO  TO  850 

IF  ( IHYO.EQ.O)  CALL  PEK( 3, NEOS.TZAL, VZAL, JORIG, 0,KZAL,C) 

850  JZ*JORIG 
855  PR( JZ+2)*PZAL 
EG( JZ+2 )«EZAL 

IF  (JZ.LE. JORIG  )  GO  TO  856 
IF  ( IHYD.NE.O)  GO  TO  856 
KP( JZ+l )*KZAL 
KM( JZ+ l )  *  KZAL 
856  IF  (JZ.GE.JR)  GO  TO  860 
JZ-JZ+l 
GO  TO  855 
860  JZ*JORIG 
865  MAT ( JZ+2) =NEOS 

IF  (JZ.GE.JR)  GO  TO  290 
JZ*JZ+1 
GO  TO  865 
870  TZAL*TVAL 
VZAL*VVAL 
GO  TO  720 
END 
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18.  PEK(NQ,MA,TP,VP,J,ND,F,C) 

PEK  calculates  F(TP,  VP)  or  or  ^7—  in  a  zone.  The  arguments 

Qir  gvr 

in  the  calling  sequence  are: 

NQ:  1  if  F  is  pressure 

2  if  F  is  energy 

3  if  F  is  opacity 

MA:  the  material  number  of  the  zone  in  question 
TP:  the  temperature 
VP:  the  specific  volume 
J:  the  number  of  the  zone 
ND:  0  if  F(T,V)  is  desired 

1  if  desired 

2  if  is  desired 

F:  the  variable  to  be  returned 
C.  the  coefficient  table 
W«FTC  PEKG 

SUBKOUT INE  PEK(NQ,MA*TP»VP,J»ND,F»C) 

C  COMMON  CARO  LA&FLEU  / IKA l A/  GROUP  TO  BE  PLACED  HERE 
DIMENSION  COE ( 9 ) 

DIMENSION  C(l) 

IF  IMA. GE. 1000)  GO  TO  20 
CALL  FlNDC(NQ,MA,TP,VP,CnF,C) 

NO l =  N0+ l 

TRANSFER  TO  FIND  FUNCTION,  DERI V  W.R.T.  T  OR  DERI V  V.R.T.  V  RESPT. 


IF  (N0.EQ.3)  TP=l./TP 
GO  TO  (100,110, 120), ND1 
100  T2=TP*TP 
V2= VP*VP 

F=CUE  I  l)+COE(  2)/VP+C0E(  3)*TP*C0£(4)  /V2+C0E < 5 ) *T2+C0F ( 6>*TP/VP+ 
1  C0E(7)*TP/V2+C0E(8)*T2/VP«-C0E(9)*T?/V2 
IF  { IHYO.EQ. 1 )  GO  TO  15 
IFINO.EQ. 1 )  F=F+2.5l4*TP**4*l.E-9 
IF ( NO. EO . 2 )  F=F+7.54*TP**4*VP*l.E-9 
GO  TO  15 
110  V2*VP*VP 

F=C()F(  i)+C0E(5)*2.*TP+C0E(6)  /VP+COE ( 7 ) /V2+C0E { 8) *2.*TP/VP+ 
l  COE(9)*2.*TP/V2 

IF  UHYD.EU.l-)  GO  TO  15 
IF ( NO. EQ . 1 )  F=F+2.514*TP**‘3*4.L-9 
IFINO.EQ. 2)  F=F+7.54*TP**3*VP*4.E-9 
GO  TO  15 


3jBK***** — 


-204- 


120  r2«rp*rp 

F*  COE ( 2 )  ♦COE  l 4 ) *2.  / VPKOE  <  6  > ♦TP+COE  f  7 ) *2 .  ♦TP/VPKOE (  8 ) *T2^ 
1  C0E(9)*2.*T2/VP 

IF  (IHVD.EQ.1)  GO  TO  15 
IF(NQ.EQ.2)  F«F^7.54*TP**4*l.E-9 
15  IF  (NQ.EQ. 3)  TP«  l./TP 
GO  TO  50 

1005  FORMAT  C32H0  PEKG  FRMT1005  NO  IS  WRONG.  ) 

20  CALI  ANEOS  (NQ,MA,TP,VP, F) 

IF  (NQ.EQ.  l.ANO.  IHYD.NE. 1 )  F»F*2.514E-9*TP**4 
IF  I  NQ.EQ  .2.  AND.  IHYD.NE. I 5  F«F47.54E-9*TP**4*VP 
IF  (ND.EQ.O)  GO  TO  50 
IW«0 

IF  (ND.NE.l)  GO  TO  40 
IF  ITP.LE. 0.0001  )  GO  TO  30 
TDIF*TP*.000l 
GO  TO  32 
30  T01F-. 00005 
32  TN-TP^TOIF 

CALL  ANEOS  I NQ,MA,TN, VP,FN) 

IF  (NQ.EQ. l.ANO. IHYD.NE. I )  FN*FN^2. 514E-9*TN**4 
IF  (NQ. EQ. 2. ANO. IHYD.NE. 1)  FN«FN^7.54E-9*TN**4*VP 
FD-A8S((FN-F)/FN) 

IF  (FO.GE. l.E-06)  GO  TO  33 
T0IF«2.*TDIF 
IW-IW+I 

IF ( IW.LT.2 )  GO  TO  32 

PRINT  2000,  J,NO,NO,IW,TP,TDIF,TN,F,FN,FO 
2000  FORMAT  (4I6,6E16.8) 

IF  ( IW.LE. 10)  GO  TO  32 

F* ( FN-F ) *l.E-06/ABS( FN-F ) /TDIF 

GO  TO  50 

j  33  F-*  (FN-FJ/TDIF 

GO  TO  50 

j  40  IF  (VP. LE. 0.0001  )  GO  TO  42 

VDIF«VP*.0001 

*  GO  TO  44 

42  VOIF-. 00005 

f  44  VN-VP4V0IF 

t  CALL  ANEOS  (NQ,MA,TP,VN,FN) 

IF  (NQ.EQ. l.ANO. IHYD.NE. 1)  FN«FN+2.514E-9*TP**4 
IF  (NO. EQ.2. AND. IHYD.NE. 1)  FN«FN^7.54E-9*TP**4*VN 
FD«ABS( (FN-F )/FN) 

IF  (FO.GE. l.E-06)  GO  TO  46 
VDIF«2.*V0IF 
IW«IW^I 

‘  I F ( IW.LT.2)  GO  TO  44 

PRINT  2000, J«NQ,ND, lW»TP»VDIF,VN,F»FN»FO 
IF  (IW.LE. 10)  GO  TO  44 
F« ( FN-F ) ♦ 1 . E-06/ABS ( FN-F ) /VDIF 
GO  TO  50 

;  46  F  «  (FN-F) /VOIF 

50  RETURN 
END 


l 
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19.  FINDC  (NF,MA,TP,  VP  ,F,C) 

FINDC  obtains  the  coefficients  for  the  macro-box  defined  by  TP 
and  VP  and  returns  them  in  F.  The  parameters  are: 

NF:  1  for  pressure 

2  for  energy 

3  for  opacity 
MA:  material  of  zone 
TP :  temperature 

VP:  specific  volume 

F:  a,  b,  c,  d,  e,  f,  g,  h,  o  are  returned  in  F^. 

C:  the  table  of  T's,  p's  and  coefficients 
LIMIT:  number  of  C's 


For  a  description  of  the  form  of  the  coefficient  table,  etc., 
see  paragraph  13. 


MBFTC  FINDC  REF 

SUBROUTINE  FINOC  ( NF , MA,TP , VP ,F ,C 1 

COMMON  /EOSCOM/  MEOS,  I0F0SI6i,  TORDERI 6) «  IBEGT(3,6),  OUM, 

I  I BEGV (3,6),  I BEGC ( 3  »  6 ) 

DIMENSION  F  { 9  )  f  C<1) 

MAUHA+l 

LOOK  =  If)FOS(MAI) 

IFILUOK.NE.  OJ  GO  TO  5 
2  PRINT  7001 , MA 

7001  FORMAT  (34HL  FINDC  FRMT7001  MATERIAL  NO.  *  I4.12H  IS  NOT  USED 
1  13H  IN  THIS  JOB.  ) 

RETURN 

b  00  6  1-=  1 , 6 

I F t I0R0ER ( I ) .EQ.LOOK )  GO  TO  9 

6  CONTINUE 

GO  TO  2 
9  KAi  =1 
I TABT=0 

U*  IREGT(NFfMAl) 

L2=  I BEGV ( NF  » MAI )- 1 
IF ( NF. EQ . 3  >  TP=  l./TP 
00  7  I=L1 »L2»? 

IF(  (TP.GE.C(n.AN0.TP.LE.C(I+2n.0R.<TP.LE.C(I).AND.TP.GE.C(  14-2)  ) 
1  )  GO  TO  10 
l TABT=  ITABT+l 

7  CONTI NUF 

10  IF(NF. EQ. 3)  TP=  l./TP 
I T  ABV=0 

L l-  !BEGV(NF,MAl) 

L2=  I  BEGC  I  NF  ,MAU-l 
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n 


VP= 1,/VP 
00  13  I=Ll,L2,2 

IF( <VP.GE.C( 1).AN0.VP.IE.C( 1+2) ).0R. 
1  )  GO  TO  15 


j 

<VP.L£.CU).AND.VP.GE.CtI+2j 


ITABV=ITABVM 
13  CONTINUE 

15  NOFT  *  IIBEGV  INF, HA 1)-IBEGT(NF,MA 1)1/2 

ICSUB  *  1 BEGC ( NF , HA l )  ♦  ITABV*N0FT*9+ITABT*9-1 


00  20  1*1,9 
TSUB  *  ICSUB+ 1 
20  F  ( I  )  =  CUSUO) 
VP*1./VP 
RETURN 
END 


? 

i 

f 

l 
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20.  ANEOS(NF,MA,TP,VP,F) 

ANEOS  calculates  F(TP,  VP)  for  materials  with  analytic  equations 
of  state.  MA  is  a  number  between  1000-1005  inclusive.  ANEOS  calls 
the  function  type  subroutines  FPlOOx,  FElOOx  or  FKlOOx  where  lOOx 
is  the  material  number.  The  arguments  are: 

NF:  1  for  pressure 

2  for  energy 

3  for  opacity 

MA:  material  in  the  zone 

TP:  temperature 

VP:  specific  volume 
F:  F(TP,  VP)  is  returned  here. 


UBFTC  ANEOS  REF 

SUBROUTINE  ANEOS  ( NF ,MA, TP, VP ,F ) 


10 

LA* 

=HA-999 

IF 

(NF.NE.l) 

GO 

TO 

GO 

TO  (11,12 

,13, 

14, 

11 

F  * 

«  FPiOOO 

(TP, 

VP) 

GO 

TO  40 

12 

F* 

FP 1001 

(TP, 

VP) 

GO 

TU  40 

13 

F  * 

‘  FP 1002 

(TP 

,VP 

GO 

TO  40 

14 

F  * 

FP 1003 

(TP, 

VP) 

GO 

TO  40 

15 

F  * 

»  FP 1004 

(TP, 

VP) 

GO 

TO  40 

16 

F  » 

FP1005 

(TP, 

VP) 

GO 

TO  40 

20  IF  (NF.NE.2)  60  TO  30 

GO  TO  121*22*23*24*25*26) » LA 

21  F  *  FE1000<TP*VP) 

GO  TO  40 

22  F*  FE1001ITP.VP) 

GO  TO  40 

23  F«  FE1002  ITP*VP) 

GO  TO  40 

24  F  *  FE1003  ITP.VP) 

GO  TO  40 

25  F  *  FE1004  CTP,VP> 

GO  TO  40 

26  F  *  FE1005  I  TP, VP) 

GO  TO  40 

30  GO  TO  1 31  * 32*33* 34* 35*36) * LA 

31  F  *FK 1000 1  TP, VP) 

GO  TO  40 

32  F*  FK1001ITP.VP) 

GO  TO  40 

33  F  *  FKl002tTP,VP) 

GO  TO  40 

34  F-  FK 1003 1  TP* VP) 

GO  TO  40 

35  F  *  FK1004  ITP.VP) 

GO  TO  40 

36  F  »  FK1005  I  TP* VP) 

40  RETURN 

END 


/\2o 


F-PtlOO(LL) 


I 

7*  FK*Oo(u) 


> - - «-•  «— - 
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21.  FP100x(T,V) 

FPlOOx  is  a  function  type  subroutine  which  calculates  P(T,V) 
or  P(E,V)  for  material  lOOx.  x  must  be  between  0  and  5  inclusive. 

22.  FE100x(T»V) 

FElOOx  is  a  function  type  subroutine  which  calculates  E(T,V) 
or  T(E,V)  for  material  lOOx. 

23.  FK100x(T,V) 

FKlOOx  is  a  function  type  subroutine  which  calculates  K(T,V) 
for  material  lOOx. 

24.  GETVAR(MF ,NV ,F ,VAR ,  JV ,OVAR ,C) 

GETVAR  has  as  input  a  dependent  variable  P,  E  or  K  and  an  inde¬ 
pendent  variable  of  T  or  V.  It  returns  the  other  independent  variable. 
The  arguments  are: 

MF:  1  if  P  is  the  dependent  variable 

2  if  E  is  the  dependent  variable 

3  if  K  is  the  dependent  variable 
NV:  1  if  T  is  the  independent  variable 

2  if  V  is  the  independent  variable 
F:  the  value  of  the  dependent  variable 
VAR:  the  value  of  the  independent  variable 
JV:  the  zone  number 

OVAR:  the  other  independent  variable  will  be  returned  here. 

C:  the  coefficient  table 


UP.FTC  GTVARG 

SUB ROUT  INF  GETVAR  ( MF , NV, F , VAR , JV, OVAR , C ) 

C  COMMON  CAROS  LABELED  /IKAl/  AND  / 1 KA  L A/  GROUPS  TO  BE  PLACED  HERE 

C  INTEGER  CARD  GROUP  TO  RE  PLACED  HERE 

REAL  KVAL,  K2AL,  KMIN,  KMAX ,  KDM,  KP,  KM 
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COMMON  /TEMC/  TEM( 1 ) 

COMMON  /VIC/  vim 
COMMON  /MATC/  MAT ( 1 ) 

DIMENSION  CU) 

IF(MAHJVm.GE.lOOO)  GO  TO  1 
CALL  GTVilTBI  MFfNV»Ff  VAR*  JV|OVARtMATf  JV+l)  #CI 
RETURN 
1  NC0T*0 

IF  (NV.EQ.2)  GO  TO  40 
30  OVARP*Vl( JV+l) 

GO  TO  50 

40  OVARP«TEM(JVm 
GO  TO  60 

50  CALL  PEK  ( MF ,MAT ( JV+ 1 ) , VAR ,OVARP, JV,Q,FN,C > 

CALL  PEK  (HF,MAT(JVm,VAR,0VARP»jV,2,FP,C) 

GO  TO  70 

60  CALL  PEK  (MF»MAT( JV+l) ,OVARP, VAR, JV,0,FN,C) 

CALL  PEK  (MF,MAT(  JV+l) ,0VARP,VAR,JV,1,FP»C) 

70  IF  (A8S  (FP) .GT.2.0E-05*ABS(FN>  )  GO  TO  80 
FP* ( FP/ABS( FP ) )*  ?.0E-5*ABS( FN) 

80  OVAR*OVARPM F-FN ) /FP 

0*  ABS( (OVAR-OVARP ) /QVAR ) 

IF  (ABS((F-FN)/Fi.LE.2.E-5)  RETURN 
IFID.LE.2.E-5)  RETURN 
NCOT«NCOm 

IF  ( NCOT.LE.  10 )  GO  TO  85 
81  WRITE  ( 6,1010 )  OVAR,F,FN,VAR,MF,NV 

1010  FORMAT  C25H0  GTVARG  FRMTiOlG  OVAR*  E14.6»5H  F*  E14.6.6H  Ff 
1  E14.6.//8H  VAR*  E14.6»6H  MF*  16, 6H  NV*  16  ) 

IF  (NCOT.LE. 15)  GO  TO  85 
IF  (NC0T.GT.16)  GO  TO  83 
OVARP* ( OVAR+OVARP 1/2. 

GO  TO  90 

83  IF  (NCOT.LE. 21)  GO  TO  85 
CALL  EXIT 
85  OVARP*OVAR 

90  IF ( NV. EQ.2 )  GO  TO  60 
GO  TO  50 
END 


l 


II 


JLi 
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25.  GTVRTB(KF,NV,F,VAR,JV,OVAR,MA,C) 

GTVRTB  is  called  by  GETVAR  if  the  equation  of  state  is  tabular. 
The  calling  sequence  is  the  same  as  for  GETVAR.  C  is  the  coefficient 
table.  See  REGST  paragraph  13. 

With  tabular  equations  of  state  a  simple  Newton  Method  is 
difficult  to  apply  since  our  first  guess  at  the  independent  variable 
may  not  be  in  the  right  macro-box,  and  the  coefficients  for  a  macro¬ 
box  do  not  necessarily  yield  derivatives  which  reflect  the  shape  of 
the  entire  surface. 

Suppose  P  and  T  are  given  and  V  is  desired.  The  T  specifies  a 
row  of  macro-boxes  in  which  the  P,  T,  V  triplet  must  lie.  In  the 
Generator  section  of  HAROLD  we  calculate  P(T,V)  for  the  given  T  and 
for  each  V  sequentially  until  the  given  value  of  P  is  spanned.  At 
this  point  we  are  in  the  correct  macro-box  and  the  regula-falsi  method 
of  interpolation  is  applied  to  find  the  solution  while  making  certain 
that  we  remain  in  the  macro -box. 


iIRFTC  GVRTRG 

SUBROUTINE  GTVR TB I MF , NV, F , VAR , JV, OVAR, MA ,C ) 

COMMON  /60SC0M/  MEOS,  IDE0SI6),  I0RDERI6),  IB6GT(3»6),  DUN, 
l  IBEGV (3,6),  IBEGCI 3*6) 

DIMENSION  F<9),  Cil) 

DO  10  IT  AB=  l ,  6 

IF( IDEOSIMA  +  II.EQ. I  ORDER ( I  TAB ) )  GO  TO  20 
10  CONTINUE 
PRINT  7000 

7000  FORMAT  I33H0  GVRTBG  FRMT7000  ILLEGAL  EOS  NO,  ) 

RETURN 

20  IF ( NV. EQ • 2  )  GO  TO  100 
IV* IBEGV (MFfITAB) 

NVS* I BEGC IMF*  ITABJ-IV 
Vl*C<IV) 

CALL  PEMMF,MA,VAR,V1,JV,0,F1,C) 

00  30  1*2, NVS 
IV-IV+1 
V2*C( IV) 

CALL  PEK(MF,MA,VAR,V2*JV,0,F2,C) 

IFH(Fl.GE.F)  .AND.  (  F2.LE.F) )  .OR.  MFl.LE.F)  .AND,  (F2.GE.F) ) )  GOTC 

F1*F2 

VI  *V2 

30  CONTINUE 
PRINT  7001 

7001  FORMAT  (50H0  GVRTBG  FRMT7001  UNABLE  TO  SPAN  FUNCTION  VALUE.  I 
RETURN 


40 


50 

60 


70 


7002 

80 


85 

90 

95 

100 


NC0T*U 
VL*V2 

IFCFL.LT. F2)  GO  TO  50 
ISGN* 1 
GO  TO  60 
ISGN*?. 

V3*V1-CV1-V2)*IE1“P)  / CF1-F2) 

IFC  ABSC  CVL-V31/V3) .GT .1.6-5) 

0VAR-V3 
RETURN 
NCOT*NCOT-H 

IFCNCOT.LE.10)  GO  TO  80 
IFCNC0T.GT.15)  CALL  6XJT 
PRINT  7002t  Vl» V2*V3»Fl#F2»F3 
FORMAT  C42H0  GVRT8G  FRMT7002 
CALL  PEKCMF,MA,VAR,V3tJV,0,F3.C) 

VL«V3 

IFCF3.GT.F)  GO  TO  95 
IFCISGN.EQ.l)  GO  TO  90 
F1*F3 


GO  TO  70 


VI*  V2 t  V3t  Fl»  F2*  F3  /6E16.7  ) 


VI 

GO 

F2 

V2 

GO 


130 


140 


150 

160 


‘V3 

TO 

»F3 

«V3 

TO 


60 


60 

IFCISGN.EQ.l)  GO  TO  85 
GO  TO  90 

IT-IBEGTCMF, 1TAB) 

NT*186GVCMF» ITABJ-IT 

CALL  PEKCMF»MA»TltVAR« JVfOtrltC) 

00130  I*2»NT 
IT- IT^l 
T2-C  C IT) 


'  f 


Fl*F2 
Tl*T2 
CONTINUE 
PRINT  7001 
RETURN 
NCOT*0 
TL*T2 

IFCFl.LT.F2)  GO  TO  150 

ISGN*1 

GO  TO  160 

n«n-<Tl-T2>«tFl-F>/IM-F2) 

IFC  *\SC  CTL-T3)/T3)  .GT.  l.E-5) 

0VAR*T3 

RETURN 


GO  T0170 
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170  NCQT-NCOTU 

IF (NCOT.LE. 10)  GO  TO  180 
IF  ( NCOT.GT • 151  CALL  EXIT 
PRINT  7003,  Tl,T2,T3,Fl,F2,F3 

7003  FORMAT  <42H0  GVRTBG  FRHT7003  Tl*  T2,  TO,  FI,  F2,  F3  /6E16.7  }: 
180  CALL  PEMMF,MA,T3,VAR,JV,0,F3,C) 

TL*T3 

IF { F3.GT • F )  GO  TO  195 
IFUSGN.EQ.l)  GO  TO  190 
185  F1*F3 

T1*T3 
GO  TO  160 
190  T2-T3 

F2«F3 
GO  TO  160 

195  IFUSGN.EQ.l)  GO  TO  185 
GO  TO  190 
END 


»  ~r-n 


GTVRTB  -  1 
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DO  >0  ITftBsl.G 


SuiKz. 


WW6  NE^>ABC. 


IVcIBE6VMPi  me 

NV5-  I&EfiCup,  n4B  *1V 
V>  -  cIV 


FI  (Vi)  FROM 
P£K 


DO  50  1-2,  KjVS 


4  70 

-  ■-  - - - 1 - - 

NCOT  *  HCOT  +  I 


M'.OT X  < 
V  \o  S~^ 


Z/HCOT 

^X  : is 


PRlMT  oat 


"Fi(v3)  FeowT\So 

PEK  ) 


'fZivz)  FROM 
pek 


TIS  F£rF2 
oe. 

\F2  £  F  £F1/- 

X  ?  X 


FI  * 

Fi 

Vli 

Vi 

X 

X3o 

IY--IVM 

VZ«C(lV) 


FI  :  Fi 


'I'SifcK. 

X  «  X 


isi<^  =  i 


_Li° 

lSlGM»i 


VL«  V3 

X 

X 


X  I  X 


- * -  M 

- =a _ 2? 

NCOT-O  X_x 

Fl  =  FE 

VL  *  Vi 

p -  VI  s  V3 

4  3o 

Fi*F3 
Vi’  VJ 


V  3  -  Vl  - 


4  feo _ 

(\l\-vz)  (  FI  -  fO 
(FI -  F20 


0V6R»  V3 


|  VL- V3 
I  V3 

v  'O'5. 


o  o 
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26.  GETTV (NF1 ,NF2,JV, FI ,F2fTN,VN) 

GETTV  has  as  input  two  dependent  variables  and  returns  the  two 
independent  variables.  The  Newton-Raphson  method  is  used. 

NF1 :  1  if  FI  is  P 

2  if  FI  is  E 

3  if  FI  is  K 
NF2:  same  for  F2 

JV :  zone  number 
FI  and  F2:  dependent  variables 

TN  and  VN:  independent  variables 
SlBFTC  GETTV  REF 

SUBROUTINE  GETTV  (  NF l , NF? , JV , F 1 , F 2 , T N, VN ) 

COMMON  CARDS  LABELED  /IKA1/  ANO  / 1 K A 1 A/  GROUPS  TO  BE  PLACFD  HERE 
INTEGER  CARD  GROUP  TO  BE  PLACED  HERE 
REAL  KVAL,  KZAL,  KMIN,  KMAX,  KDM,  KP,  KM 
COMMON  /TEMC/  TEM(l) 

COMMON  /VLC/  VL(1) 

COMMON  /MATC/  MATH) 

IF(MAHJVM).GF.IOOP)  GO  TO  5 
WRITE  ( 6 , IOOI ) 

1001  FORMAT ( 30H0GETTV  CALLED  FOR  TABULAR  EOS.  ) 

RETURN 
6  NCO  T  =  0 
NCSW=0 
AMP»l.t+fl 
10  TN=TEM(JV+l) 

VN=VL( JVM ) 

?0  CALL  PEK  (NFl,MAT(  JVM  )  ,TNfVN,  JV,0,FM,C) 

CALL  PEK  (NF2,MAT(  JVM  )  ,  TM,VN,  JV,0,FN2,C) 

CALL  PEK  (NFl,MAT( JVM  )  ♦  TN ,  VN,  J V, 2  ,  F  Ml  V,C  ) 

CALL  PEK  (NF2,MAT(  JVM  )  ,TN,VN,  JV,2,FN2V,C) 

CALL  PEK  (NFl,MAT(  JVM),TN,VN,JV,l,FNlT,C) 

CALL  PEK  (NF2,MAT(  JVM  )  ,TN,VN,  JV,l,FN?T,C) 

D»  FNIT*EN2V-FN1V«‘FN2T 
IF  ID.NE.O.)  GO  TO  AO 
ERFL AG=  1 
WRITE  (6,1000) 

1000  FORMAT  (1H0,36H  <■**♦**  MPOr  IN  GETTV — JACORI  AN=0.  ) 

30  RETURN 

AO  TOIF=(  (Fl-FN1)»FM2V-(F?-FN2)*FNIV  )/D 
VOI F=  (- ( F l-EN 1 ) *FN2 T  ♦ ( E2-EN2 )  *f  V  l  T  ) /D 
TN=  TN  +  TDIF 
VN=VM+Vf>lF 

IE  (NCSW.Fj.U)  GO  Tf  A 2 
A 1  WRITE  ( 6 , 1005)  TN,VN, TDIF, VDIE,EVl,fN2 

1006  FORMAT  {  IHO,  3X,3HTN  =  E  1A.6,  3X  ,  3MV'I=F  t  A.  6 , 3  X ,  5HTDI  F  =  E  14 . 6 , 3X  ,  6HVD  IF  = 
1  El  A. 6/  III  ,3X»AHFN1=E1A.6,3X,AHFN2=F14.6) 

A?  AMP  =T0IF**?+VGtF**2 

A A  IF  (AMP  .LT.l.E-06)  30  TO  30 
NCOT  =  NC01  ♦ l 

IF  (NCOT.GT.  10)  GO  TO  A 5 
GO  TO  2C 
A 5  NCSW=l 

IF  (NCUT.CT.16)  CALL  EXIT 

GO  T 0  20 

END 


o  n 
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27 .  SOURCE 

SOURCE  is  called  by  GENRAT.  It  reads  and  interprets  the 
RSOURCE  and  ZSOURCE  cards . 

IZ  is  index  from  1  to  10  denoting  the  number  of  the  zone  source 
JS(IZ)  is  the  zone  into  which  the  IZth  source  is  going 
NZS(IZ)  the  number  of  steps  in  the  IZth  source 
NZSRCE  the  total  number  of  source  step  functions  or 
EZS(KS,IZ) ,TMS(KS,IZ)  the  Kth  step  of  the  IZth  source 
IR  is  the  index  from  1  to  10  denoting  the  number  of  the  region 
source 

RS(IR)  the  region  into  which  the  IRth  source  is  going 
NRS(IR)  NZS(IZ) 

NRSRCE)  C°  (  ffiSRCE 

ERS  (KS  ,IR)  ,TMRS  (KS  ,IR)  }  {  EZS  (KS  ,IZ)  ,TMS  (KS  ,IZ) 

There  are  a  maximum  of  10  source  functions  for  zones  and  regions. 
If,  for  example,  you  had  a  12  region  problem  you  could  put  sources 
in,  at  most,  10  of  the  regions.  You  could  also  put  sources  in  10 
zones , 

IRMAX  and  IZMAX  =  10 

There  are  at  most  6  steps  in  each  source  function:  KS,,,,,  =  6. 

MAX 


IIBFTC  SOURCE  REF 

SUBROUTINE  SOURCE 

COMMON  CAROS  LABELED  /IKA1/  AND  / 1 KA l A/  GROUPS  TO  BE  PLACED  HERE 
INTEGER  CARD  GROUP  TO  BE  PLACED  HERE 
REAL  KVALt  KZAL,  KMIN,  KMAX,  KDM,  KP,  KM 
INTEGFR  SRCESWtRS 
COMMON  /ZURC/Z SOURC 
COMMON  /RURC/RSOURC 
COMMON  /BYBB/  BORYBB 
COMMON  /CBIN/  C0MBIN 
COMMON  /ZMPE/  ZTEMPE 
COMMON  /PCEN/  PERCEN 
COMMON  /FATA/  ENDATA 
COMMON  /EQ/EEQ 
COMMON  /TMQ/  TMEQ 
COMMON  /BLNK/PLANK 
I  R=  1 

SRCES W=0 
NRSRCE=0 
NZSRCE=0 
I  Z=  1 


T 

i 


l 


4  IF  (CAROC l ) .NE.ZSQURC )  GO  TO  140 
SRCESW-1 

NZSRCE«NZSRCE*1 
NZSUZ)«i 
41  KS* I 

IF  {SRCESW.NE. 1)  GO  TO  150 
JSC  IZ )*CARD( 2) 

5  FIELDN* l 
WLAB-CARDC3) 

7  IF  (WLAB.NE.EEQ)  GO  TO  10 

IF  (FIELDN. EQ. 2. OR. FIELDN. EQ. 4)  GO  TO  200 

8  IF  (SRCESW.NE. 1)  GO  TO  60 

IF  {FIELDN. EQ.l)  ESC KS. IZJ*CARD(  4) 

IF  ( F IELDNoEQ. 3)  ESCKS, IZJ-CARDC  8) 

GO  TO  70 

10  IF  (WLAB.NE.7MEQ)  GO  TO  20 

IF  (FIELDN. £0.1. OR. FIELDN. EQ. 3)  GO  TO  210 
12  IF  ( SRCESW.NE. 1 )  GO  TO  80 

IF  (FIEL0N.E0.2)  TMSCKS,  IZ ) »CARDC  6) 

IF  (FIELDN. EQ.4)  THS(KS*  I Z )*CARD(  10 ) 

GO  TO  85 

20  IF  (WLAfi.NE. BLANK)  GO  TO  130 
IF  (FIELDN.EQ.l)  GO  TO  50 
IF  (FIEL0N.NE.2)  GO  TO  30 
IF  (KS.LE.l)  GO  TO  35 
25  ERFv.AG-1 

WRITE  (6,1005) 

WRITE  (6,1)  (CARO(I)tl-lflO) 

1005  FORMAT  (1H0,33H  SOURCE  FRMT1005  TM  IS  EXPECTED.  /) 

IF ( F IEL0N.EQ.4)  GO  TO  45 
GO  TO  110 

30  IF  (FIELON.E0.4)  GO  TO  25 
GO  TO  45 

35  IF  (SRCESW.NE. 1)  GO  TO  90 
TMS ( 1 , IZ )* l.E+10 
KS*KS*1 
GO  TO  45 

45  READ  (5,1)  (CARO( I), 1*1, 10) 

1  FORMAT  (A6,F6.0,4(A3,E12.6) ) 

IF  (CARO< 1).NE. BLANK)  GO  TO  48 
IF  (KS.GT.2)  GO  TO  5 
ERFLAG* 1 
WRITE  (6,1040) 

1040  FORMAT  (1H0,47H  SOURCE  FRMT1040  CARD  PRECEDING  IS  INCOMPLETE. 
GO  TO  5 

48  IF  (SRCESW.NE. 1)  GO  TO  49 
NZS (  IZ )*KS-1 
IZ*IZ*1 
GO  TO  4 

49  NRS (  IR )*KS-1 
IR* IR+1 

GO  TO  4 

50  ERFLAG* 1 
WRITE  (6,1015) 

WRITE  (6,1)  (CARD{ I), 1*1, 10) 

1015  FORMAT  (1H0,39H  SOURCE  FRMT1015  FIRST  FIELD  IS  BLANK.  /) 
t  GO  TO  100 
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60  IF  ( F  IELDN.EQ. 1 )  ERS1KS, IR)*CARD(  6) 

IF  (FIELDN. EQ. 3)  ERSUS,  IR)«CARD(  6) 

70  GO  TO  (100,200,120,200),  FIELDN 
80  IF  (FIELDN. EO. 2)  TMRS(KS» IR) *CARD(  6) 

IF  (FIELDN. EQ. 6)  TMRS(KS, IR) *CARDt 10) 

85  KS-KS+i 

GO  TO  (210*110*210*65) * FIELDN 
90  TMRS(1,IR)«1.E+10 

GO  TO  65 
100  WLAB-CARD(5) 

FIEL0N*2 
GO  TO  7 

110  WLAB*CARD(7) 

FIELDN-3 
GO  TO  7 

120  WLAB*CAR0(9) 

FIEL0N-6 
GO  TO  7 
130  ERFLAG*! 

WRITE  (6,1020) 

WRITE  (6,1)  (CAROM),  1-1,10) 

1020  FORMAT  (1H0,61H  SOURCE  FRNT1020  CARD  HAS  tLLEGAL  LABEL.  /) 

GO  TO  (100, 110, 120, 65), FIELDN 
160  IF  (CARD(  D.NE.RSOURC)  GO  TO  180 
SRCESW*2 
NRSRCE-NRSRCE+1- 
NRS( IR)*1 
GO  TO  61 

150  RS(IR)*CAR0(2) 

GO  TO  5 

180  IF  (CAR0(  D.EQ.BORYBB)  RETURN 
IF  (CARD!  D.EQ.COMBIN)  RETURN 
IF  (CARD!  U.EQ.ZTEMPEJ  RETURN 
IF  (CARD( l ) • EO.PERCEN)  RETURN 
IF  (CARD( 1 ) .EQ.ENDATA)  RETURN 
ERFLAG*1 
WRITE  (6,1050) 

WRITE  (6,1)  (CAR0(I),I*i,10) 

1050  FORMAT  (1H0,31H  SOURCE  FRMT1050  ILLEGAL  CARD.  /) 

GO  TO  6 
200  ERFLAG*! 

WRITE  (6,1030) 

WRITE  (6,1)  (CARD! I), 1*1, 10) 

1030  FORMAT  (1H0,66H  SOURCE  FRMT1030  CAN'T  HAVE  E  VALUE  IN  SECOND 
1 , 17H  OR  FOURTH  FIELD.  /) 

GO  TO  (  8  ,110,  8  ,  65), FIELDN 
210  ERFLAG*! 

WRITE  (6,1035) 

WRITE  (6,1)  (CARO(I), 1*1,10) 

1035  FORMAT  (1H0,67H  SOURCE  FRMT1035  CAN'T  HAVE  TIME  IN  1ST  OR  3RD 
1,  7H  FIELD.  /) 

GO  TO  (100,  12,120,  12), FIELDN 
END 


ii 


‘ft***-  *- 


SOURCE  -  1 
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28.  BOUND 

BOUND  Is  called  by  GENRAT.  It  reads  and  interprets  the 
BOUNDARY  cards . 

* IFFTC  BOUND  REF 

SUBROUTINE  BOUND 

COMMON  CARDS  LABELED  /IKAI/  AND  / 1 K A 1 A /  GROUPS  TO  BE  PLACED  HERE 
INTEGER  CARO  GROUP  TO  BE  PLACED  HERE 
REAL  KVAL»  KZAL,  KMIN,  KMAX,  KDM,  KP,  KM 
COMMON  /BYBB/BDR YBB 
COMMON  /CBIN/  COMB  I N 
COMMON  /ZMPE/  ZTEMPE 
COMMON  /PCEN/  PERCEN 
COMMON  /EATA/  ENDATA 
COMMON  /MNMX/MINRB.MAXBB 
REAL  MlNBBfMAXBBfKEO 
COMMON  /UQ/UEO 
COMMON  /PO/PEC 
COMMON  /EO/ECO 
COMMON  /KQ/KFQ 
COMMON  /TO/TFO 
COMMON  /RINK/RLANK 
COMMON  /TVQ/TMEQ 

0  IF  (CARO(  D.NF.BDRYRB)  GO  TO  510 
ML AB  =  C ARO I  2 ) 

IF  (MLAB.NE.OJ  (.0  Tu  100 
BDRYSW=  1 
9  KS=  1 

10  WLAB=C ARD ( 3 ) 

FIELDN=  t 

IF  (KS.GT.l)  GO  TO  20 
IF  (KLAB.EQ.UEQ  )  GO  TO  120 
IF  (KLAR.EQ.PEQJ  GO  TO  110 

IF  (WLAB.EO.EEO)  GO  TU  140 

IF  (WLAR.FQ.KEW)  GO  TO  150 

IF  (WLAB.EQ.TEQ)  GO  TO  160 

IF ( WLAB. CO. BLANK)  GO  TO  265 
15  ERFL AG=  1 

WRITE  (6,1000) 

WRITE  (6,1)  { CAR  D (I), 1  =  1, 10) 

1000  FORMAT  (IH0,44H  BOUND  FRMTIOOO  FOLLOWING  CARD  HAS  ILLEGAL 
1,  7H  LABEL.  /) 

GO  TO  90 

20  GO  TO  (420,440,470,490,  170),RTYPC 
40  IF  ( WL  AB.EQ.  TMEO )  GO  !('  200 
GO  TO  15 

45  GO  TO  (  60,  70,  80,  90), MELON 
60  *LAR=CAR0( 5) 

F  I  EL  0N  =  2 

IF (KLAB.EO. BLANK)  GO  TO  270 
GO  TO  40 
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70  WLA8«CARD(7) 

FIEL0N*3 

IF(WLAB. EG. BLANK)  GO  TO  350 
GO  TO  20 
80  WLAB*CARD(9) 

FIELDN»4 

IF(WLA8.EQ. BLANK)  GO  TO  400 
GO  TO  AO 

90  READ  (5,1)  ( CARD( I ) » I* 1 , 10 ) 

1  FORMAT  (A6,F6.0,4(A3,E12.6) ) 

IF  (CARD! 1 ) .EQ. BLANK)  GO  TO  10 
GO  TO  350 

100  IF  (MLA8.NE.1)  GO  TO  110 
105  BDRY$W«? 

GO  TO  9 
110  ERFLAG*! 

WRITE  16,1005) 

WRITE  (6,1)  (CARD! 1 ) , 1*1, 10) 

1005  FORMAT  (IH0,4BH  ROUND  FRMT1005  BOUNDARY  CARD  FOLLOWING  HAS  NO 
1 , 16H  'MAX*  OR  'MIN'.  /) 

GO  TO  105 
120  BTYPE-5 

GO  TO  180 
130  RTYPE-3 

GO  TO  480 
140  BTYPE*l 

GO  TO  430 
150  BTYPE*2 

GO  TO  450 
160  BTYPE*4 

GO  TO  500 


170 

IF(WLAB.NE.UEO) 

GO  TO  15 

180 

GO 

TO  (182,184), 

BDRYSW 

182 

IF 

( F IELDN.EQ. 1 ) 

UMIN(KS)«CARD( 

4) 

IF 

(FIELDN.EQ.3) 

UMIN(KS)*CARD( 

8) 

GO 

TO  45 

184 

IF 

(FIELON.EQ.l) 

UMAX(KS)*CARD( 

4) 

IF 

(fiELDN.EQ.3) 

UMAX (KS)*CARO( 

8) 

GO 

TO  45 

200 

GO 

TO  (202,204), 

BDRYSW 

202 

GO 

TO  (240,230,220,210,206) ,BTYP6 

204 

GO 

TO  (245, 235, 225, 215, 208), 8TYPE 

206 

IF 

(FIEL0N.EQ.2) 

TUMIN(KS)*CARD( 

6) 

IF 

(FIELDN.E0.4) 

TUMINI KS ) *CARD( 10) 

GO 

TO  250 

208 

IF 

(FIELDN.EQ.2) 

TUMAX (KS ) *CARD( 

6) 

IF 

{ FIELDN.EQ.4) 

TUMAX (KS) “CARD ( 10) 

GO 

TO  250 

210 

IF 

(FIELDN.EQ.2) 

TTMIN(KS)*CARD( 

6) 

IF 

(FIELDN.EQ.4) 

TTMIN(KS)*CARD(10) 

GO 

TO  250 

215 

IF 

(FIELDN.EQ.2) 

TTMAX(KS)=CARD( 

6) 

IF 

(FIELDN.EQ.4) 

TTMAX(KS )*CARD( 10) 

GO 

TO  250 

228 


220  IF  (FIELDN.EQ.2)  TPMIN(KS)*CARD(  6) 

IF  (FIEL0N.EQ.4)  TPMIN(KS)*CARD( 10) 

GO  TO  250 

225  IF  (FIELDN.EQ.2)  TPMAX(KS)»CARD(  6) 

IF  (FIELDN.EQ.4)  TPMAX(KS)*CARD( 10) 

GO  TO  250 

230  IF  (FIELDN.EQ.2)  TKMIN(KS )«CARD(  6) 

IF  (FIELDN.EQ.4)  TKKIN(KS ) *CARD( 10) 

GO  TO  250 

235  IF  (FIELDN.EQ.2)  TKMAX(KS)*CARD(  6) 

IF  (FIELDN.EQ.4)  TKMAX(KS)«CARD( 10) 

GO  TO  250 

240  IF  (FIELDN.EQ.2)  TEMIN(KS ) *CARD(  6) 

IF  (FIEL0N.EQ.4)  TEKIN(KS)*CARD(10) 

GO  TO  250 

245  IF  (FIELDN.EQ.2)  TEMAX( KS ) *CARD(  6) 

IF  (FIELDN.EQ.4)  TEMAXt KS ) *CARD( 10) 

250  KS«KS>1 
GO  TO  45 
265  ERFLAG* 1 

WRITE  (6,1020) 

WRITE  (6,1)  (CARD(I), l«l,10) 

1020  FORMAT  (1H0,45H  BOUND  FRMT1020  FIRST  FIELD  CAN’T  BE  BLANK.  /) 
GO  TO  90 

270  IF  (KS.LE.l)  GO  TO  280 
ERFLAG»1 
WRITE  (6,1025) 

WRITE  (6,1)  (CARD( I), 1*1, 10) 

1025  FORMAT  (IH0,49H  BOUND  FRMT1025  CAN'T  HAVE  2N0  FIELD  BLANK  WITH 
1 , 21H  MORE  THAN  ONE  INPUT.  /) 

GO  TO  45 

280  GO  TO  (290,295), BDRYSW 
290  GO  TO  (330,324,316,308,300) ,8TYPE 
295  GO  TO  (332,326,318,310,302) ,BTYPE 
300  NUM I N* 1 

TUH IN( l)*l.E+il 
GO  TO  340 
302  NUMAX* l 

TUMAX(  1)*1.E  +  U 
GO  TO  340 
308  NTMlN-l 

TTMIN(l)*l.E+li 
GO  TO  340 
310  NTMAX* 1 

TTMAX ( 1 )* 1 .E+l 1 
GO  TO  340 
316  NPMIN*1 

TPMIN(i)*l.E*li 
GO  TO  340 
318  NPMAX*  1 

TPMAX ( l)*l«E+il 
GO  TO  340 


324  NKMlN*i 

TKMIN(U*I.E+ll 
GO  TO  340 
326  NKNAX*1 

TKMAXII)«l.E6ll 
GO  TO  340 
330  NEMIN*1 

TEMINf  I)”UE*il 
GO  TO  340 
332  NEHAXM 

TENAX(i)*i.E+ll 

340  READ  (5,1)  (CARDU  ) ,  1*1 , 10) 

GO  TO  8 
350  KS*KS-1 

GO  TO  (355,360)»BDRYSW 
355  GO  TO  (364,370,376,384,390) »BTYP£ 

360  GO  TO  (366,372,380,386,392) ,BTYPE 
364  NEMIN-KS 
GO  TO  340 
366  NEMAX-KS 
GO  TO  340 
370  NKHIN-KS 
GO  TO  340 
372  NKMAX-KS 
GO  TO  340 
376  NPMIN-KS 
GO  TO  340 
380  NPKAX-KS 
GO  TO  340 
384  NTMIN-KS 
GO  TO  340 
386  NTMAX-KS 
GO  TO  340 
390  NUMIN-KS 
GO  TO  340 
392  NUHAX-KS 
GO  TO  340 
400  ERFIAG-1 

WRITE  (6,1030) 

WRITE  (6,1)  (CARO( I) ,1*1, 10) 

1030  FORMAT  (IH0,42H  BOUND  FRMT1030  'TM*»  IS  EXPECTED  ON  THE 
1,16H  FOLLOWING  CARO.  /) 

GO  TO  90 

420  IF  (WLA6.NE.EEQ)  GO  TO  15 

430  GO  TO  ( 432,434) , BDRYSW 

432  IF  (FIELON.EQ.i)  EMIN(KS)«CARD(  4) 

IF  (FIELDN.EQ.3)  EMIN(KS) *CARD(  8) 

GO  TO  45 


4 


230 


434 

IE 

(FIELDN.EQ.I) 

EMAX(KS)*CARD( 

4) 

IF 

(FIEL0N.E0.3) 

EMAX ( KS ) *CARD( 

8) 

GO 

TO  45 

440 

IF 

(WLAB.NE.KEQ) 

GO  TO  15 

450 

GO 

TO  (452,454), 

BDRYSW 

452 

IF 

(FIELDN.EQ.I) 

KMIN(KS )*CARD( 

4) 

IF 

(FIELDN.EQ.3) 

KMIN(KS)=*CARO( 

8) 

GQ 

TO  45 

454 

IF 

(FIELDN.EQ.I) 

KHAX(KS)»CARD( 

4) 

IF 

(FIELDN.EQ.3) 

KMAX(KS)»CARD( 

8) 

GO 

TO  45 

470 

IF 

(WLAB.NE.PEQ) 

GO  TO  15 

480 

GO 

TO  (482,484), 

BDRYSW 

482 

IF 

(FIELDN.EQ.I) 

PMIN(KS)*CARD( 

4) 

IF 

(FIELDN.EQ.3) 

PHI N( KS )  *CARD( 

8) 

GO 

TO  45 

484 

IF 

(FIELDN.EQ.I) 

PHAX ( KS ) *CARD( 

4) 

IF 

(FIELDN.EQ.3) 

PMAX ( KS ) *CARD( 

8) 

GO 

TO  45 

490 

IF 

(WLAB.NE.TEQ) 

GO  TO  15 

500 

GO 

TO  (502,504), 

BDRYSW 

502 

IF 

(FIELDN.EQ.I) 

TMIN(KS)*CARD( 

4) 

IF 

(FIELDN.EQ.3) 

TMIN(KS)»CARD( 

8) 

GO 

TO  45 

504 

IF 

(FIELDN.EQ.I) 

TMAX ( KS ) *CARD( 

4) 

IF 

(FIELDN.EQ.3) 

TMAX ( KS ) *CARD{ 

8) 

GO 

TO  45 

510 

IF 

(CARD(l).EQ.CQMBIN)  RETURN 

IF 

(CARD(  D.EO.ZTEMPE)  RETURN 

IF 

(CARD(  D.EG.PERCEN)  RETURN 

IF 

(CAROll).EQ.ENDATA)  RETURN 

ERFLAG*i 
WRITE  ( 6,  7000) 

WRITE  (6,1)  (CARD(I),l*l,10) 

7000  FORMAT  (1H0.31H  BOUND  FRMT7000  ILLEGAL  CARD.  /) 
READ  (5*1)  CARD 
GO  TO  8 
END 
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29 .  COMB 

COMB  reads  and  Interprets  the  COMBINATION  CARD. 


UP  MX  CUMP  PrP 

SUBR'iuriNF  COMP 

C  COMMON  CAROS  LAtPLfO  /  I K  A 1  /  AMD  /IKAIA/  CROUPS  TO  BE  PLACED  HERE 

C  [NTCCFR  CARD  GROUP  TO  BP  PLACFI  H 

REAL  KVALt  KZAlt  KNI\,  M'AX,  KT  "  ,  Kf ,  KM 

COMMON  /CO  IN/COMP  IN 

COMMON  tlV PF/  L  TtM{>6 

common  /pcpn/  pcrcln 

COMMON  /fATA/  f  DATA 


10 

30 

AO 


45 

50 


60 


70 


BO 

00 


common  /jz».  ;/zjuro 

COMMON  /J4E0/Z JSFO 

COMMON  /JMfcO/ZJMFO 

COMMON  /ORC/OREf 

COMMON  /HINK/HLANK 

IF  ( C  AR  0(  1  )  .NF.COMRtN  )  CO  TO  1 

IF  (NS.LE.O)  CO  TO  160 

WL AB-CARD ( 3) 

F I ELPN= 1 

IF  (WLAB.NE.  ZJDF'J)  (.0  TO  50 
(P I  EL  DM. GO. 1  I 
(  F  I  FLDM .  F  k. .  ?  ) 

(FIFLDN.E  J.3) 

IF  (F  lFLON.tO.4I  JO=CARD( 10) 
CO  TO  (PC  ,  NO, ICO, 110) tFIhLDN 
IV.LAB.NE./JSE  .)  CO  TO  60 
(F1ELDN. 1.0.1) 

(FIFLDN.E 0.2) 

(FIFLUN.F0.3) 

( F IELDN.tC.4) 

(.0  TO  46 

IF  (WLAb.NE.ZJMFQ)  CO  TO  70 
(T ItLOM.FO. 1)  JOM-CAP  D ( 
(FIFLDN.F0.2) 

(FIFLDN.E 0.3) 

(FIELDN.f  ) . 4 ) 


IF 

IF 

IF 


IF 
IF 
IF 
IF 
I  F 


IF 

IF 

IF 

IF 


J  J  =  C  A  ?  0 (  4) 
J0=CA»D(  6) 
J9=CAU'(  8) 


JCS=CARD(  4) 
JOS=CARO(  6) 
JCS=CA«0(  8) 
J05=CAR0( 10) 


JOW=CARO( 
J0M  =  CAR()( 


4) 

6) 

8) 


JOM=CARD( 10) 


IF 

IF 

IF 

IF 

IF 


( WLAB.Nfc.DREw)  GO  TO  140 
(FIELDN.F).  1)  DRC  =  CARO(  4) 


(FIELDN.F 0.2) 
(FltLON.FO. 3) 
(FIELON.lQ.4) 
(,0  TO  45 
WLAB=CARD( 5) 

F I E  L  0N=  2 
CO  Til  4-) 

VsLA8  =  CARD(  7) 

F  l  ELON=  3 
CO  p'  40 


D'JC  =  C  ARU  (  fa) 
DRC  =  C ARO (  8) 
DRC=CARD( 10) 


70 
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100  WLAB*CARD(9) 

FIEL0N*4 
GO  TO  40 

110  IF  (NS.GT.O)  GO  TO  120 
IF  (JO.LT.O)  GO  TO  130 
IF  (JOS. IT. 0)  GO  TO  130 
IF  (JOM.LT.O)  GO  TO  130 
120  READ  (5.1)  (CARD! I  3 » I*  1* 10) 
l  FORMAT  ( A6,F6.0,4(A3,E12.6) ) 

RETURN 
130  ERFLAG* 1 

WRITE  (6,1000) 

1000  FORMAT  (IH0.49H  COMB  FRMT1000  INSUFFICIENT  DATA  FOR  CONBIN 
1,  7H  ZONES.  /) 

GO  TO  120 

140  IF  (WLAB.NE. BLANK)  GO  TO  150 
GO  TO  45 
150  ERFL AG= l 

WRITE  (6,1005) 

WRITE  (6,1)  (CARD( I ) , 1*1, 10) 

1005  FORMAT  (1H0,32H  COMB  FRMT10C5  ILLEGAL  LABEL.  /) 

GO  TO  45 
160  JO*- l 
J0S*-1 
J0M*-1 
GO  TO  30 

170  IF  (CARO(l).EO.ZTEMPE)  RETURN 
IF  (CARO( 1 )«EQ.PERC£N)  RETURN 
IF  (CARD! 1 J.FO.ENDATA)  RETURN 
ERFLAG^l 
WRITE  (6,1010) 

WRITE  (6,1)  (CARD( I ) , 1=1, 10) 

1010  FORMAT  ( 1H0, 31H  COMB  FRMT1010 
GO  TO  10 
END 


ILLEGAL  CARD.  /) 
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30 .  TMPRED 

TMPRED  reads  and  interprets  the  ZTEMPERATURS  card.  It  is 
called  by  GENRAT, 


URFTC  TMPRD  REF 

SURROUT  f  NE  TMPRD 

C  COMMON  CAROS  LABELED  /IKA1/  AND  /l'KAU/  GROUPS  TO  BE  PLACED  HER 

C  INTEGER  CARD  GROUP  TO  PE  PLACED  HERE 

REAL  KVAL,  KZAL,  KMIN,  K  M  A  X  ,  KDb ,  KP,  KM 
COMMON  /TFMC/  TEM(l) 

COMMON  /UC/UU) 

COMMON  /ZMPE/Z  TEMPE 
COMMON  /PCEN/  PERCEN 
COMMON  /EATA/  ENDATA 
COMMON  /Z1Q/Z1EO 
COMMON  /Z20/Z2EC 
COMMON  /JLQ/ZJLEQ 
COMMON  /OLNK/RLANK 


IF 

(NS.LE.O)  GO  10 

150 

10 

IF 

(CARO( l J.NE.ZIEMPF)  GO  TC 

!  1 

20 

FIEL0N=1 

WLAB=CARD( 3) 

30 

IF 

(WLAR.NE.Z1E0) 

GO  TO  40 

IF 

(FIELDN.EO. 1 ) 

Z1=CARD( 

4) 

IF 

(FIELDN.EO.  21 

Z  l=CARf)-( 

IF 

(  F  I ELDN.  Eg.  3) 

Z l=CARD( 

01 

IF 

(Fir-LON.CO.4) 

Zl=CA&D( 10) 

35 

GO 

TO  (  80,  00,100 

,  1 10  )<»F  I  ELDN 

40. 

IF 

(WLAR.NE.Z2E0) 

GO  TO  50 

IF 

(FIELDN.EO. 1) 

Z  2  =  C  A  R  D  ( 

4) 

IF 

(FIELDN.EO. 2) 

l 2=CAPD( 

6) 

IF 

JFItLDN.FQ.3) 

Z  2  =  CARD ( 

8) 

IF 

(FIELDN.EO. 4) 

7 2  =  C  ARD ( 10) 

GO 

TO  35 

50 

IF 

cwlar.ne.zjleo) 

GO  TO  60 

IF 

(FIELDN.EO. 1) 

JL=CARO( 

4) 

IF 

(FIELDN.EO. 2) 

JL=C ARD ( 

6) 

IF 

(FTFLON.CO. 3) 

J  L  =C  ARD ( 

3) 

IF 

(FIELDN.EO. 4) 

JL=CAKO( 10) 

GO 

T°  35 

60 

IF 

( wLAR.nE. BLANK) 

GO  Til  70 

GO 

T>'  35 

70  c RFL  AG= l 

WRITE  (6,1000) 

WRITE  (6,1)  (CARDd).  1  =  1,10) 
l c 00  KIRMAT  ( 1H0, 32H  TMPRD  FRVT  l GOO  ILLEGAL  LABEL.  /) 

r.u  TO  3  5 
HO  WLAB  =  CA«l)(  6) 
riELDN=? 

GO  T  D  30 
)0  VLAB=CAR0(7) 

F I  EL ON =  3 
i-U  In  30 


I 


r  £***-'V 
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100  WLAB*CARD(9) 

FIELON-4 

110  GCALL  JHTCJHAT,  JSTAR'.,JMAXtT£N(l),U(l>,Zi,Z2) 

lF(CARD( 1 ) •Nfc.ZTENPE )  RETURN 
115  READ  (5,1)  (CAR0(I >*1*1*101 
1  FORMAT  (A6,F6.0,4(A3,E12*6)) 

RETURN 
150  Zl*-1. 

Z2«-l. 

JL  *  201 
GO  TO  10 

U  IF(NS.NE.O)  RETURN 
GO  TO  110 
END 
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31.  JHT(j“,j*,jmax,U,Zl,Z2) 

JffT  is  called  by  TMPRED  to  determine  j*  and  The  deck  named 
JHTT  is  used  if  Z2  is  a  temperature,  and  JITIU  is  used  if  Z2  is  a 
velocity. 


tIBFTC  JHTT  REF 

SUBROUT  INE  JHT ( JHikT ,  JSTARvJMA**  TEM , U *  Z1 , 1 2 ) 
DIMENSION  TEM(I)iUIfi) 

120  JHAT* JMAX 
JST  AR* JMAX 
J*JMAX 

122  IF  (TEMU+n.LT.Zl)  GO  TO  127 
124  IF  (TEMIJ^l)  .LT.22 )  GO  TO  128 

IF  ( TEM( J+l ) «GEcZ2. AND. TEM( J+l) .GE.Z1)  GO  TO  129 

126  J*J-1 

IF  (J.LE.l)  GO  TO  129 
GO  TO  122 

127  JST  AR* J  +  l 
GO  TO  124 

128  JHAT-JM 
GO  TO  126 

129  IF  (ZUEQ.0.4  JSTAR»0 
RETURN 

END 


ilBFTC  JHTU  REF 

SUBROUTINE  JHT I JHAT , JSTAR , JMAX , TEM ,Uf l l , 22 ) 
DIMENSION  TEM(1),U< l) 

120  JHAT=JMAX 
JST  AR= JMAX 
J=JMAX 

122  IF  ( TEM ( J+ 14  . LT. Z 1 )  GO  TO  127 
124  IF  CUC J 1 .LT. Z2  )  GO  TO  128 

IF(U(J).GE.Z2.AND.TEM(  J+D.GE.ZU  GO  TO  129 

126  J*J-1 

IF(J.LE.l)  GO  TO  129 
GO  TO  122 

127  JST  AR* J  +  l 
GO  TO  124 

128  JHAT* J  + 1 
GO  TO  126 

129  IFU1.EQ.0.  )  JSTAR  =0 
IFCJHAT.LE.l)  JHAT*2 
RETURN 
END 


o  o 


i 
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32.  PERC 

PERC  reads  and  interprets  the  PERCENTS  cards.  It  is  called 
by  GENRAT. 


$ IBFTC  PERC  REF 

SUBROUTINE  PERC 

COMMON  CAROS  LABC'.EO  /IKA1/  AND  /IKA1A/  GROUPS  TO  BE  PLACEO  HERE 
INTEGER  CARO  GROUP  TO  BE  PLACEO  HERE 
REAL  KVALt  KZAL*  KM1N,  KMAX »  KDM,  KP,  KM 
COMMON  /PCEN/PERCEN 
COMMON  /EATA/  ENOATA 
COMMON  /XIO/XIEO 
COMMON  /X2Q/X2EQ 
COMMON  /X3Q/X3EQ 
COMMON  /X4Q/X4EQ 
COMMON  /X5Q/X5E0 
COMMON  /X6Q/X6EQ 
COMMON  /BLNK/BLANK 
10  IF  (CARO( IJ.EQ.PERCEN)  GO  TO  15 
IF  (CAROm.EO. ENOATA)  GO  TO  12 


WRITE  (6,1020) 

WRITE  (6,1)  (CARO( I) ,1*1,10) 
1020  FORMAT  (1H0,32H  PERC  FRMT1020 
READ  (5,1)  ( CARQ( I ) , I* 1, 10) 
l  FORMAT  ( A6,F6.0,4(A3,E12.6) > 
GO  TO  10 

12  IF  (NS.EO.O)  WRITE  (6,1000) 
RETURN 

15  IF  (NS. GKO)  GO  TO  20 

Xl*-l. 

X2*-l. 

X3*-l. 

X4*-l. 

X5*-l. 

X6*-l. 

20  FIELON*! 

WLAB*CARD(3) 

30  IF  (WLAB.NE.X1EQ)  GO  TO  40 

IF  (FIELON. EQ.l)  X1*CAPD(  4) 
IF  (FIELON. EO. 2)  Xl*CARD(  6) 
IF  (FIELON. EO. 3)  X1*CARD(  8) 
IF  (FIELON. EQ. 4)  Xl*CARD(10) 
35  GO  TO  ( 150, 160,170,100), FIELON 
40  IF  (WLA8.NE.X2EQ)  GO  TO  50 

IF  (FIELON. EQ.l)  X2=CARD(  4) 
IF  (FIELON. EQ. 2)  X2*CARD(  6) 
IF  (FIELON. FQ. 3)  X2=CARD(  8) 
IF  (FIELON. EO. 4)  X2=CA«DU0) 
GO  TO  35 

50  IF  ( WLAB.NE. X3E0 )  GO  TO  60 

IF  (FIELON. EQ.l)  X3=CAR0(  4) 


eCARO( 10) 


X2*CARD(  4) 
X2*CARD(  6) 
X2=CARD(  8) 
X2=CARD( 10) 

GO  TO  60 
X3=CARD (  4) 


ILLEGAL  LABEL. 
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IF  ( FIELDN.EQ.2)  X3=CARD(  6) 

IF  (FIEL0N.EQ.3)  X3»CARD(  8) 

IF  (FIELDN.EQ.4)  X3*CARD(10) 

GO  TO  35 

60  IF  (WLA8.NE.X4EQ)  GO  TO  70 

IF  IFIELON.EO.II  X4*CARD(  41 
IF  (FIELDN.EQ.2)  X4«CARD(  6) 

IF  (FIEL0N.EQ.3)  X4»CARD(  8) 

IF  (FIEL0N.EQ.4)  X4*CARDU0) 

GO  TO  35 

70  IF  IWLA8.NE.X5EQ)  GO  TO  75 

IF  (FIELDN.EQ.i)  X5*CARD(  4) 

IF  { FIELDN.EQ.2 )  X5*CARD(  6) 

IF  ( F IELDN.EQ. 3)  X5«CARD{  8) 

IF  ( FlEL0N.EQ.4J  X5*CARD(10) 

GO  TO  35 

75  IF  (WLAB.NE.X6EQ)  GO  TO  80 

IF  (FIELDN.EQ.I)  X6*CARD(  4) 

IF  (FIELDN.EQ.2)  X6*CARD(  6) 

IF  IFIEL0N.EQ.3)  X6*CARD(  8) 

IF  ( F IELDN.EQ. 4)  X6*CAR0(10) 

GO  TO  35 

80  IF  (WLAB.NE. BLANK)  GO  TO  130 
GO  TO  (120,90,90, 90), FIELON 

90  IF  (NS.GT.O)  GO  TO  100 
IF  (Xl.LT.O.)GO  TO  110 
IF  (X2.LT.0. )G0  TO  110 
IF  (X3.LT.0. ) GO  TO  ilO 
IF  ( X4.LT .0. )GQ  TO  110 
IF  (X5.LT.O.)GO  TO  110 
IF  (X6.LT.0.JG0  TO  110 
100  REAO  (5,1)  (CAR0( I),I=1,10) 

IF  (CARD( l ) . EQ. BLANK  }  GO  TO  20 
RETURN 
110  ERFL AG* 1 

WRITE  (6,1000) 

1000  FORMAT  (1H0,48H  PERC  FRMT1000  INCOMPLETE  PERCENT  DATA  GIVEN.  /) 
GO  TO  100 
120  ERFLAG*! 

WRITE  (6,1010) 

WRITE  (6,1)  (CARO( I), 1*1, 10) 

1010  FORMAT  (1H0.43H  PERC  FRMT1010  FIRST  FIELD  IS  BLANK  ON —  /) 

GO  TO  35 
130  ERFLAG* l 
GO  TO  100 
150  FIELDN*2 

WLAB*CAR0(5) 

GO  TO  30 
160  F!ELDN*3 

WLA8*CARD ( 7 ) 

GO  TO  30 
170  F I ELDN*4 

WLAB=CARD ( 9 ) 

GO  TO  30 
END 
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33.  GETLAB (N1 ,N2 ,WIAB)  (RAND  version  only) 

GETLAB  gets  the  BCD  from  columns  N1  to  N2  of  the  twelve  BCD 
words,  CARD(I),  1=1,12,  (a  single  card  image)  and  returns  them  in 
WLAB,  left  adjusted  and  filled  in  at  the  right  with  BCD  blanks. 

34.  CONVRT (FIELDN ,N ,ANS)  (RAND  version  only) 

CONVRT  converts  the  information  found  in  columns  16-27,  31-42, 
46-57  or  61-72  of  the  BCD  card  image  CARD(I)  ,  1=1,12  as  FIELDN  is 
1,  2,  3  or  4  respectively.  The  columns  are  converted  to  an  integer 
or  floating  point  number  as  N  is  1  or  2  respectively  and  the  results 
are  stored  at  ANS. 

35.  CHGWD(X,JF)  (RAND  version  only) 

CHGWD  rereads  a  variable  as  an  integer  or  floating  point  number. 

36.  IKAERR 

IKAERR  prints  a  message  and  calls  exit  when  ALIBI  is  reached 
illegally. 


SIRFTC  IKAERR  REF 

SUBROUTINE  IKAERR 
PRINT  7000 

7000  FORMAT  (24H0ALIUI  HAS  BEEN  REACHED.  ) 
CALL  EXIT 
FND 


37A.  ALIBI  (RAND  version) 

ALIBI  is  a  collection  of  dummy  entry  points  to  all  the  possible 
analytic  equation  of  state  routines  so  only  those  being  used  need 
actually  be  included  in  the  deck.  The  entry  points  contained  are: 


FP1000 

FE1000 

FK1000 

FP1001 

FE1001 

FK1001 

FP1002 

FE1002 

FK1002 

FP1003 

FE1003 

FK1003 

FP1004 

FE1004 

FK1004 

FP1005 

FE1005 

FK1005 

ALIBI  (A 11 -FORTRAN 

version) 

Prints  out  a  message  that  "ALIBI  HAS  BEEN  REACHED." 

UBFTC  ALIBI  REF 

SUBROUT  INF  ALIBI 
CALL  IKAERR 
RETURN 
f  NO 


■3 

l „  t 
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i 1 BFTC  FP 1000 

FUNCTION  FP 1 0001 T »  V ) 
CALL  IKAERR 
RETURN 
END 

ilBFTC  FP 1001 

FUNCTION  FP1001 ( T  » V ) 
CALL  IKAERR 
RETURN 
ENO 

ilBFTC  FP 1002 

FUNCTION  FP 1 002 ( T  » V ) 

CALL  IKAERR 

RETURN 

ENO 

ilBFTC  FP 1003 

FUNCTION  FP l 003 ( T  *V) 

CALL  IKAERR 

RETURN 

ENO 

ilBFTC  FP 1004 

FUNCTION  FP 1 004 ( T »  V ) 

CALL  IKAERR 

RETURN 

END 

ilBFTC  FP 1005 

FUNCTION  FP 1 005 ( T  t  V 1 

CALL  IKAERR 

RETURN 

ENO 

$  I BFTC  FE 1000 

FUNCTION  FE 1 0001 T »  V ) 

CALL  IKAERR 

RETURN 

ENO 

ilBFTC  FElOOl 

FUNCTION  FElOOl(TtV) 
CALL  IKAERR 
RETURN 


ENO 

ilBFTC  FE 1002 

FUNCTION  FE 1 002 ( T  »  V ) 

CALL  IKAERR 

RETURN 

ENO 

ilBFTC  FE  1003 

FUNCTION  FE 1003 ( T »  V ) 


i  I 


CALL  IKAERR 

return 

END 

BFTC  FE 1004 

FUNCTION  FE1004(T»V) 


H 
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CALL  IKAERR 

RETURN 

ENO 

S  IBFTC  FE 1005 

FUNCTION  FE1005<T,V) 
CALL  IKAERR 
RETURN 
FNO 

SIBFTC  FKiOOO 

FUNCTION  FKIOOO ( T » V ) 
CALL  IKAERR 
RETURN 
END 

i  IBFTC  FK1001 

FUNCTION  FK 1001 ( T»  V) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  FK 1002 

FUNCTION  FK1 002 1 T » V ) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  FK 1003 

FUNCTION  FK  1 003 ( T  » V ) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  FK 1004 

FUNCTION  FK100MT,V) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  FK 1005 

FUNCTION  FK 1 005 ( T »  V ) 
CALL  IKAERR 
RETURN 
FND 

SIBFTC  DROA 

SUBROUTINE  ROA(C) 

CALL  IKAERR 

RETURN 

END 

SIBFTC  DPET 

SUBROUTINE  PET 
CALL  IKAERR 
RETURN 
END 

SIBFTC  DTSR 

SUBROUTINE  TSR(C) 
CALL  IKAERR 
RETURN 
END 


cr 


1 


SIBFTC  DROAXP 

SUBROUTINE  ROAEXPICI 
CALL  IKAERR 
RETURN 
ENO 

SIBFTC  OTSRXP 

SUBROUTINE  TSREXP(C) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  DC DR 

SUBROUTINE  CDRIC) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  OROAMP 

SUBROUTINE  ROAIHP(C) 
CALL  IKAERR 
RETURN 
END 

$  IRFTC  OROB 

SUBROUTINE  ROBIC) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  DROC 

SUBROUTINE  ROC(C) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  DRDI 

SUBROUTINE  RDIIC) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  DROD 

SUBROUTINE  ROD ( C ) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  DROE 

SUBROUTINE  ROE(C) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  DTSRMP 

SUBROUTINE  TSRIMPIC) 
CALL  IKAERR 

RETURN 

END 
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SIBFTC  DRBND 

SUBROUTINE  RBOUNDI TM,RHO) 

CALL  IKAERR 

RETURN 

END 

SIBFTC  DPBNO 

SUBROUTINE  PBOUNO  (TM,PRJHP2> 
PRJMP2  «  0. 

RETURN 

END 

SIBFTC  OZNSRF 

FUfICT  I  ON  ZNSRFNI  J  »  SFN) 
ZNSRFN*0. 

RETURN 

END 

SIBFTC  DRGSRF 

FUNCTION  RGSRFNI NR , SFN ) 
RGSRFN*0. 

RETURN 

END 
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VI.  DESCRIPTION  Or  "EXECUTE"  PROGRAM 


NTRQDUCTION 

The  Executor  portion  of  HAROLD  requires  a  previously  generated 
problem  to  be  written  on  the  history  tape  as  cycle  0.  The  history 
tape  must  be  on  FORTRAN  logical  12.  The  Executor  reads  cycle  0  from 
the  history  tape,  calculates  the  problem,  cycle  by  cycle,  and  prints 
and  writes  history  cycles  at  previously  specified  times  or  cycles. 

It  terminates  calculating  when  the  cycle  number  reaches  NF  or  when 
an  interval  timer  overflow  occurs. 

This  portion  of  HAROLD  requires  a  restart  card  (and  for  the 
RAND  version,  an  output  description  deck;  the  form  of  these  cards  is 
discussed  on  the  following  page) . 

A  problem  may  also  be  restarted  with  this  section  of  HAROLD 
if  no  changes  are  to  be  made  to  the  data.  If  any  changes  are  to  be 
made, the  restart  option  of  the  Generator  must  be  used  before  the 
Executor  is  used. 

If  tabular  equations  of  state  are  required,  they  should  be  in 
the  form  produced  by  TABCOE  (see  Section  VII)  and  mounted  on  FORTRAN 
logical  8. 

DATA  DESCRIPTION 

The  Executor  section  of  HAROLD  requires  a  restart  card  (and,  for 
the  RAND  version,  an  output  description  deck) .  The  restart  card  is 
of  the  form  NS  ,IRAD ,IDENT^__g  with  format  (2I6,10A6).  The  parameters 
are : 

NS:  This  is  the  cycle  number  from  which  to  restart. 

It  is  0  for  a  problem  which  has  just  been  generated. 

The  problem  is  restarted  from  the  first  cycle  on  the 
history  tape  with  a  cycle  number  greater  than  or  equal 
to  NS,  but  any  very  large  number  will  result  in  re¬ 
starting  from  the  last  cycle  on  the  history  tape. 

IRAD:  This  is  1  for  hydrodynamics  only,  2,  3  or  4  for  explicit 

radiation  and  5,  6  or  7  for  implicit  radiation. 

IDENT:  This  is  60  characters  of  BCD  information  to  be  printed 
at  the  start  of  the  output. 
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The  output  description  deck  consists  of  25  cards.  Each  card 
corresponds  to  a  possible  output  variable.  In  columns  61-66  of 
those  cards  corresponding  to  output  variables  desired,  the  user 
specifies  the  order  in  which  he  wishes  them  to  occur  on  the  line. 

In  columns  67-72  he  specifies  the  number  of  significant  figures 
desired.  He  then  circles  the  units  in  which  he  would  like  the 
variable  to  be  output.  All  numbers  should  be  right -adjusted ,  The 
total  number  of  significant  figures  desired  (the  sum  of  the  numbers 
in  columns  67-72)  plus  7  times  the  number  of  output  variables  re¬ 
quested  must  not  exceed  128.  The  keypuncher  punches  columns  1-6 
and  61-80  of  all  25  cards  as  well  as  those  groups  of  six  columns 
specifying  units  which  have  been  circled.  A  sample  output  descrip¬ 
tion  sheet  follows  and  an  example  of  its  use  is  included  in  the 
test  case  data  descriptions  in  Section  IK. 


t 
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EQUATION  OF  STATE  HANDLING 

Equations  of  state  may  be  either  analytic  or  tabular  or  both. 
There  may  be  a  maximum  of  six  of  either  type.  Tabular  equations  of 
state  should  be  on  a  binary  tape  in  the  form  prepared  by  TABCOE  and 
mounted  on  FORTRAN  logical  tape  8. 

For  problems  using  explicit  or  implicit  radiation, analytic 
equations  of  state  are  introduced  through  function  type  subroutines 
calculating  P(T,V)  ,  E(T,V)  and  K(T,V).  For  a  region  having  the 
material  number  lOOx,  these  function  type  subroutines  have  the  names 
FPlOOx,  FElOOx  and  FKlOOx  respectively.  The  form  of  the  subroutine 
calculating  P(T,V)  for  material  1003  would  be: 

$IBFTC  FP1003 

FUNCTION  FP1003(T,V) 

FP1003  =  some  expression  using  T  and  V 

RETURN 

END 

and  the  form  of  the  subroutines  calculating  E(T,V)  and  K(T,V)  would 
be  similar. 

Additional  flexibility  in  the  form  of  analytic  equations  of 
state  is  permitted  for  problems  using  hydrodynamics  only.  This 
additional  flexibility  is  introduced  through  the  use  of  a  subroutine 
called  PET.  For  equations  of  state  of  the  form  P(T,V)  and  E(T,V) 
the  standard  form  of  PET  (see  p.  330)  is  used  and  these  equa¬ 
tions  of  state  are  included  as  function  subroutines  of  the  form 
described  above.  If  the  equations  of  state  are  of  the  form  P(E,V) 
and  T(E,V)  the  equations  of  state  are  calculated  by  the  subroutine 
PET  and  no  function  type  subroutines  are  included.  Using  equations 
of  state  of  this  form  saves  computing  time. 

In  this  case  j  must,  of  course,  be  determined  from  a  velocity 
condition,  not  a  temperature  condition.  See  page  285. 

The  form  of  the  PET  subroutine  is  in  this  case: 

SIBFTC  PET 

SUBROUTINE  PET(MAT,T,V,P,E,J,C) 

P  =  some  expression  using  E  and  V 

T  =  some  expression  using  E  and  V,  if  T  is  desired 

RETURN 

END 


o  o  o 
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EXECUTE  SECTION  CORHONS  NOTE 

7HE  CONTINUATION  CARO  A  OF  CORRON  / 1 KA28  /  HAS  THE  FOLLOWING  DIF- 

1  FERENCE  IN  TWO  SUBROUTINES.  THIS  CARD  IS  NOT  IN  SUBROUTINES 

2  ECHECK  OR  GETVAR . 


THE  FOLLOWING  GROUPS  OF  CAROS  SHOULC  REPLACE  THE  CORWENTS  CARCS 
WHICH  ARE  USED  IN  THE  LISTINGS  FOR  THE  SUBROUTINES. 


C  THE  CORHON  /IKA2/  GROUP  IS  AS  FOLLOWS 

CORHON  / IKA2/  ERS(6,10J,  ES<6,1C),  TRRS{6,10),  TNSI6.10),  RSllO}, 

1  JSdC),  NRSdC),  NZSdO),  RRG  ( 15)  »  JREGI15),  CH15),  C2II5), 

2  C3  ( 15  ) ,  CA  d  5  ) »  C  5  J  15)*  E0U5),  ERINI6),  ERAXI6),  KHIN16), 

3  KHAX  { 6 ) ,  PH  IN (6  )  ,  PHA  X ( 6 ) ,  TRIM6J,  TRAX(fc),  URINC6),  UHAX16), 
ATEM  IN  (  6  ) »  TERAXI6),  TKH IN (  6  )  *  TKHAX(fc),  TPRIM6)  *  TPHAXI6),  NKHAX, 

5  TTMINU),  TTHAX { 6 ) »  TURIN!  6)  *  TUHAXI6),  NEHIN,  NERAX,  NKHIN, 

6  NPHIN,  NPHAX«  NTH  IN «  NTHAX »  NUHIN,  NURAX,  NRSRCE ,  NZSRCE, 

7  JO,  JOS,  JCR ,  ORC,  Zl,  Z2,  JL,  XI,  X2,  X3,  XA ,  X5,  X6,  HS,NF, 

8  UNCGS,  UNHKS,  TH,  OT,  OTP,  JSTAR ,  JHAT,  JRAX,  DELTA,  REGNO,  JZ, 

9  NREG,  NEOS,  RHIN,  RHAX ,  IRAO 


C  THE  CORHCN  / IKA2B/  -GROUP  IS  AS  FOLLOWS 

CORHON  / IK A2B/  NDH( 6 )  ,  NHC(6),  DTH ( 6 ) ,  CTH(6),  NOP16),  N  PC  f  6  )  , 

1  DTPRI6),  CTP  <  6 ) ,  NOCK ( 6 ) ,  NCKCI6),  DTCK(t),  CTCKI6), 

2  N,  ICK ,  IH,  IP,  ICK2 ,  IH2,  IP2,  TRCKL ,  TRHL ,  CTS,  DTPS,  IC, 

3  IRETRN,  THPL ,  NPRT ,  NENCK,  NHIST 

A  ,  CTR 1 ,  DTH2 ,  JLAH,  JOHEGA,  AHBDA,  OREGA,  JGARHA ,  GARHA 
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Table  2 

TABLE  OF  COMMON  ZONE  AND  REGION  VARIABLES  FOR  VARIOUS  SUBROUTINES 

(Each  variable  is  a  label  and  common  of  the  form  COMMON  /  /.  For  example, 
'’C0MM0N/RC/R(1)  . "  The  zone  variables  have  all  been  dimensioned  in  COMSIZ.) 


ftC/RU) 

(JC/Utll 
TERC/TERU) 
TARC/YARI 1 ) 

vic/vim 

PRC/Mfl) 

EGC/EC t 1) 
KPC/KPU) 

KRC/KRI1) 

ORASSC/ORASSIll 

DRESSC/ORESSm 

TERSGC/TERSQU) 

TER3C/TEH3 II) 
TER4C/TER4I l ) 
KORC/KORIl) 
ELC/EH  1 ) 

CKCGR/CKY 115) 
RATC/RAT (II 
QC/Qll) 
VLRC/VIRU) 

PRRC/MRI i ) 
ECRC/E6RU) 
ELRC/EIRI | ) 
SUR2C/SUR2 115) 

THETAC/THETAU) 

oc/otn 

OKDRPC/OKORPU) 

OKDRRt/DKDRRU) 

SIGC/SIGIl) 

CAPCC/CAPCI1) 

HC/Hll) 

CAPXC/CAPKll) 

GC/GU) 

CAPJC/CAPJU) 

CTHS0H/THSURI15) 

CTHSRR/THSRRU5* 
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SUBROUTINE  DESCRIPTION 

The  Exe 

•Tutor  section  of 

HAROLD  consists  of  the 

A 

check  mark 

on  left  side  of 

deck  number  means  the  - 

present,  or 

modified  in  FORTRAN  version. 

1. 

COMSIZ 

2  < 

EMAIN 

3. 

EXEC 

✓  4. 

Dummy  CLNUP  in  FORTRAN 

5. 

REOST 

6 . 

ESTAB  (dummy  ESTAB  in  FORTRAN) 

7. 

FORMS  (not  present  in  FORTRAN) 

8. 

SFT 

9. 

HYD 

10. 

R0Ah 

11. 

REGSR 

12. 

RGSRFN* 

13. 

ZONSR 

14. 

TSRh 

znsrfn* 

15. 

16. 

jirrh 

17. 

ROAEXP*2 

18. 

TSREXP® 

19. 

CDR1,e 

20. 

ROAIMP1 

21. 

ROB1 

22. 

ROC1 

23. 

RDI1 

24. 

ROD1 

25. 

ROE1 

26. 

TSRIMP1 

27. 

POR 

28. 

PPR 

29. 

HIST 

30. 

ECHECK 

U. 

PROUT 

1 
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✓32. 


33. 

CZR 

34. 

PET 

35. 

PB0UND% 

RBOUND* 

36. 

37. 

co 

• 

39. 

40. 

41. 

42.  IKAERR 

43 .  ALIBI 


COUTI*  ) 

) 

.  )  RAND  version  only 

•  i  ) 

COUT25'f  ) 


PER 

FINDC 

ANEOS 

FPlOOx 

FElGOx 

FKlOOx 

GETVAR 

GTVRTB 


The  actual  count  of  these  subroutines  in  any  given  job  will 
depend  on  the  following: 

1.  What  version  -  RAND  or  FORTRAN. 

2.  What  type  of  radiation,  if  any. 

3.  What  kind  of  source  functions,  analytic  and/or  step,  zone 
and/or  region,  if  any. 

4.  What  kind  of  boundary  conditions,  analytic  and/or  step, 
minimum  and/or  maximum,  if  any. 

5.  What  kind  and  how  many  equations  of  state  are  involved, 

COMSIZ  must  occur  first.  ALIBI  must  occur  last.  Those  sub¬ 
routines  indicated  with  an  "h"  are  used  only  for  hydrodynamics  only 
calculations.  Those  indicated  with  an  ne"  are  used  only  for  explicit 
radiation.  Those  indicated  with  an  "i"  are  used  only  for  implicit 
radiation.  Those  which  are  not  required  may  be  removed  from  the  ob¬ 
ject  deck  if  more  storage  space  is  required  for  equations  of  state. 
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Those  subroutines  indicated  by  an  are  special  purpose  subroutines 
which  need  be  included  only  if  they  are  required.  Dummy  entry  points 
for  all  these  routines  are  included  in  ALIBI. 

1 .  COMSIZ 

COMSIZ  exists  to  give  the  user  control  over  the  amount  of 
storage  devoted  to  zone  variables.  SIZE  is  a  name  in  COMSIZ  which 
is  defined  as  follows: 

SIZE  EQU  202 

This  EQU  pseudo  operation  results  in  all  zone  variables  being 
dimensioned  202,  which  permits  200  zones  (storage  must  be  allowed 
for  boundary  conditions  at  j  =  -%  and  j=jmaxi-^)  .  If  more  storage 
space  is  required  for  equations  of  state  and  the  problem  does  not 
have  200  zones,  SIZE  may  be  equivalenced  to  the  number  of  zones  in 
the  problem  plus  two.  220  storage  cells  are  saved  by  reducing  the 
value  of  SIZE  by  ten. 

COMSIZ  has  a  second  variable,  SIZEI,  which  is  defined  similarly 
to  SIZE  and  is  used  to  control  the  amount  of  storage  allocated  to 
variables  used  only  by  implicit  radiation.  For  problems  using  implicit 
radiation, SIZEI  should  be  equivalenced  to  the  same  number  that  SIZE 
is  equivalenced  to.  For  hydrodynamics  only  or  explicit  radiation 
problems  it  may  be  equivalenced  to  0.  100  storage  cells  are  saved  by 

reducing  the  value  of  SIZEI  by  ten.  For  explicit  radiation  SIZEE  is 
used  to  control  the  amount  of  storage  allocated  to  variables  used 
only  in  explicit  problems.  This  variable  should  be  equivalenced  to 
SIZE.  For  hydro  only  problems  it  may  be  equivalenced  to  zero.  For 
implicit  problems  SIZE,  SIZEE  and  SIZEI  are  equal.  The  hierarchy 
then  is  as  follows: 

hydro  only  0  <  SIZE  <  202,  SIZEE  =  SIZEI  =  0 
explicit  only  0<  SIZE  <  202,  SIZEE  =  SIZE,  SIZEI  =  0 
implicit  only  0  SIZE  <  202,  SIZEI  =  SIZEE  =  SIZE 
COMSIZ  also  contains  the  conversion  factors  used  by  the  COUT 
routines  and  the  formats  used  by  PR0UT  for  RAND  version. 

This  subroutine  must  occur  first  in  the  Executor  deck  as  it 
defines  the  size  of  the  control  sections  for  zone  variables.  Also 
other  subroutines  have  dummy  control  sections  dimensioned  1. 


t 
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SIPFTC  CDSI/t 

COUPON  /RC/  R(?C?) 

COMMCN  /UC/  U ( 2 0 2 } 

COMMON  /TPPC/  T  f- M  (  2 1  2  ) 
COMMON  /TAMC/  rAP(2L''> 
COMMON  /VLC/  VL { 20? ) 

COMMON  /PRC/  PP ( 202 ) 

COMMON  /fcGC/  PG(?02) 

COMMON  /KPC/  K P ( ? 0 2 ) 

COMMON  /KMC/  KM(?C2) 

COMMON  /DP AS  SC /  DMASS ( 202 ) 
COMMON  /DMCSSC/  OVf  SS(2(’2) 
COMMON  /TFPSCC/  Tl'MSCl?02) 
COMMON  /rfP3C/  TPP3 { ?C?  ) 
COMMON  / TPM4C/  TCM4{?('?> 
COM'ifN  /KDMC  /  K  0  M  (  ?  0  ?  ) 
COMMON  /bLC  /  Cl  ( 202 ) 
COMMON  /MATC/  MAT l 202) 
COMMON  /ELMC/  fLM(2P?) 
COMMON  /PRMC /  PP"(20?) 
COMMON  /fcflPC/  fcGM ( ?0? ) 
CCMMCN  /VI  MC/  VL  ^  C  2<>?  ) 
COMMON  /OC /  i*(2«,?J 
COMMON  /ThtFAC/  T H f  T A { ? 0 7 ) 
CCMMOfv  /TC/  IMP';?) 

COMMON  /DKr.PPC/  DKTMP  (  ?G?  ) 
COMMON  /OKDMMC/  lK0MM(202) 
COMMON  /SIOC/  S  l  G ( 2( 2 ) 
COMMON  /CAPCC/  CAPO (20?) 
COMMON  /HC/  H(2i»2) 

COMMON  /CAPKC/  CAPK(20?) 
COMMON  /GC/  P ( 20? ) 

COMMON  /CAPJC/  CAP J ( 202 ) 
f-NO 


2A.  EMAIN  (RAND  version) 

EMAIN  is  the  deck  in  which  execution  of  the  Executor  portion  of 

HAROLD  begins.  It  is  also  the  entry  point  for  the  Executor.  It 

* 

determines  from  S.SLOC+4  the  address  of  the  first  location  not  used 
by  the  program  and  establishes  this  location  as  the  first  location 
of  the  tabular  equation  of  state  coefficient  table.  It  also 
determines  from  S.SLOC+3  the  number  of  cells  required  for  1/0  buffers 
and  from  this  it  calculates  the  number  of  cells  available  for  this 
coefficient  table.  This  number  is  stored  as  LIMIT.  It  then  calls 
EXEC. 


IBM  Systems  reference  library  form  C28-6334,  1963,  p.  59. 
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2B.  EMAIN  (FORTRAN) 

C  and  LIMIT  are  dimensioned  according  to  user  specification 

as  in  GMAIN  (FORTRAN) . 

tlPFlC  tMAIN  RIF 

0  IMF  NS  I  ON  C  (  3  A  0  < ' ) 

LIMIT  =  34C0 
CALL  EXtC(C, LIMIT) 

CALL  EXIT 
FMJ 

3.  EXEC (C  jLIMIT) 

EXEC  is  the  main  controlling  routine  of  the  Executor.  It  reads 
the  prchiem  from  the  history  tape  and  controls  the  cycle  by  cycle 
execution  of  the  problem  until  cycle  NF  is  reached  or  until  an 
interval  timer  overflow  occurs. 


i 

j 

i 


MPFTC  LXI C  p  LF 

SU8RCUT  I  NL  EXEC  ( C  »  L  l  M I  T  ) 

DIMENSION  I CC NT (10) 

C  COMMON  CARDS  LABELED  /IKA2/  AND  /lKA?f  /  GROUPS  TO  RE  PLACLC  HER' 

INTEGER  DELTA,  REGS' G,  UNCGS,  UN*KS 
REAL  KM  IN,  KMAX,  KP,  KM,  KDM 

C  SEE  TABLE  FOR  UTHCK  MNGLY  LAOFLFp  COMMON  CAPPS  TO  Hfc  PLACED  HER 

COMMON  /LOSCCM/  *F0S,  IDEOS(6),  I0RDER(6),  IBhGT  (3,6)  ,  CUM, 
l  I8EGVI 3, A) «  I FFGC I  3 ,6 ) 

WIND  I? 

CALL  CLNUPIC, ISSWb) 

REAP  7C0A  »  NSTAPT , IRAC, IGENT 
ICOA  FORMAT  (216,1CAG) 

PRINT  7005 ,  NSTART,  IPAD,  IDENT  ; 

7C05  FORMAT  (1 H 1 , 3HNS= I  6 , 2X , 5H l R AD= 1 6, 1 0 A6 )  v 

2  READ  (12)  J 

BACKSPACE  12  ! 

IF(J.FO. 123456)  GC  10  l 

RFAC  ( 12 )  NREG , JMAX , NR SRCE , NZSRCE ,NEMI N, NEM AX ,NKM 1 N , NKMAX , NPM I Ni 

1  NPMAX,NTMTN,N\lMAX,NOMIN',NUMAX,DT,DTP,DELTA,RFGNO,N,NF,JZ,DRC, 

2  Zl,/2,X1,X2  ,X'3,X4,X5,Xf>,  JO,  JOM ,  JOS  »  JL  ,  JS  T  AR  ,  JHAT ,  INCGS ,  UNMKS »  < 

3  TM,RMIN,RMAX  j 

JMAX2=JMAX+?  j 

READ  (12)  (R( I )  ,U( I ) ,TEM( I ) ,TAM(I ),VL( I) ,VLM( H,PR( | ) ,PRM( I ) , 

1  EG (  I)  ,  EGM (  I  ) , KP i I ) ,  KM( I) ,CMASS( I ) ,CMESS ( I ) ,  TEMSC ( I ) , TFM3 ( I ) ,  i 

2  TFMA(n,KDM(I),FL(I),ELMU),MAT(I),G(!),I  =  l,JMAX2) 

READ  (  1 2 )  ( RRG  ( I  ),JREG(I),Cl(I),C2(!),C3(I),f.MI),C5(I),fcO(l), 
l  CKY( I ) , SU*V ( I ), 1=1, 15) ,MEOS, lOEOS 
READ  (12)  ( NDF ( I ) , NHC ( I ) , NDP ( I ) ,NPC( I ) ,NDCK ( I ) , NCkC ( I ) , EM  IN ( I ) , 

1  FMAX(  I  )  ,KMIN(  I)  ,  KMAX  (  I  )  ,  PM  I  N  (  I  ) ,  PM.AX  (  I  )  ,  TM,  IN  (  I  )  ,  TMAX  (  I  ),UM  IN  (  I  )  » 

2  UMAX  {  I )  ,  TEM  IN  ( I  ) ,  TEMAX  (  I  )  ,  TKMIN(  I  ) ,  TKMAX  (.1  )  ,  TPMIN  (  I  )  ,  TPM  AX  ’  )  , 

3  TTMIN(  I  )  ,TT"AX(  I  )  ,  TUMI. S' (  I  )  ,  TUMAX  (  I )  ,  DTH  (  I  ) ,  CTH (  I  )  ,  DTPR  (  I  )  ,  C  TP  (  I  ) 


V. 


-  Xr 


•jr' 


•  •  -  y  v. 
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4  DTCKt I ) »CTCK( l ) , 1=1,6) 

READ  (121  t(ERS(I,K),ESII,K),TMRS(I,K),TN$(I,K),l*l»6l»RSIIO, 

1  JS(K),NRS(K),NZS(K),K*1,10) 

IF(N.GE.NSTART)  GO  TO  1 
GO  TO  2 

I  PRINT  7010?  (Cl<  I),C2(I),C3U),C4m,C5m,l*l,NREG) 

7010  FORMAT  t  IHO  6X  2HC1  10X  2HC2  10X  2HC3  10X  2HC4  10X  2HC5 
l  /(1H  5612*4) ) 

PRINT  7011, JO, J0S,J0H,DRC,Zl,Z2,JL,JHAT,JSTAR,Xl»X2,X3,X4,X5,X6 

7011  FORMAT  ( IHO  4X  2HJ0  3X  3HJ0S  3X  3HJ0M  9X  3HDRC  /  IH  316,612.4  / 

1  IHO  6X  2HZI  10X  2HZ2  8X  2HJL  4X  4HJHAT  3X  5HJSTAR  /  1H  2E12.4, 

2  16,  218  /  IHO  6X  2HX1  10X 

3  2HX2  10X  2HX3  10X  2HX4  10X  2HX5  10X  2HX6  /  IH  6E12.4) 

CALL  REGSTiC, LIMIT) 

CALL  ESTAB 
CALL  PROUT(C) 

CMES$(l)*DMASS(2)/2. 

OMESS ( JMAX+  l ) *OMASS ( JMAX+ 1) /2. 

NPRT*NDP( 1) 

NENCK*NDCK ( 1 ) 

NHI$T*NOH(l> 

IFINQP (l).NE.O)  GO  TO  90 
DO  81  1=1,6 

IF(CTPm.GT.TM)  GO  TO  82 

81  CONTINUE 
1*6 

82  IP2* I 

IFU.EQ.l)  GO  TO  84 
TMPL*CTP ( I- 1 ) 

GO  TO  86 
84  TMPL*0. 

86  IF ( TMPL+DTPRl I ) *( 1.+ l.E-7 I.GT.TM)  GO  TO  140 
TMPL=TMPL*OTPR(  l ) 

GO  TO  86 

90  IF  (NPRT.GT.N)  GO  TO  140 
100  IF  (NPRT.GE.NPC(l) )  GO  TO  101 
1*1 

GO  TO  120 
101  1*2 

102  IF  (NPRT.LT .NPC( I ) .AND.NPRT.GE.NPC 1 1-1 ) )  GO  TO  120 
IF  (I.GE.6)  GO  TO  120 
I*IU 
GO  TO  102 

120  NPRT*NPRT+NDP( I) 

GO  TO  90 

140  IF(NDCKU).NE.O)  GO  TO  149 
00  141  1*1,6 

IF (CTCKf  D.GT.TM)  GO  TO  142 

141  CONTINUE 
1*6 

142  ICK2*I 

IFU.EQ.l)  GO  TO  144 


t 


V 


l 


i 


\ 

\ 
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TNCKL*CTCKt I— 1 1 
60  TO  146 
144  TMCKL*0. 

146  IFITNCKL4DTCMn*tl.4l.E-T).GT.T»0  60  TO  180 
TMCKL*TMCKL+OTCM  1 1 
60  TO  146 

149  IF  CNENCK.GT.NI  GO  TO  180 
15Q  IF  INENCK.GE.NCKCim  GO  TO  151 
i-i 

GO  TO  160 

151  1*2 

152  IF  CNENCK.LT.NCKCU).  AND. NENCK.GE.NCKC«  1-1)1  60  TO  160 
IF  (I.GE.6)  GO  TO  160 
l*I*l 
60  TO  152 

160  NENCK-MENCK4NDCK ( I  ) 

60  TO  140 

180  IFtNOmil.NE.O)  GO  TO  189 
00  181  I*l»6 

IF (CTHt 1 1 .GT.TN)  GO  TO  182 

181  CONTINUE 
1*6 

182  IH2*t 

IF(I.EQ.l)  GO  TO  184 
TMHL*CTH( I — 1 1 
GO  TO  186 
184  THHL*0. 

186  IF<TNHL40THUI*(1.4l.E-7).GT.TM)  GO  TO  200 

TMHL*TNHL40THUI 
GO  TO  186 

189  IF  (NHIST.GT.N)  GO  TO  200 

IF  (NHIST.GE.NHCfll)  GO  TO  191 
1*1 

GO  TO  190 

191  1*2 

192  IF  <NHIST.lT.NHCm.AND.NMIST.GE.NHCf I-I))  GO  TO  190 
IF  1I.GE.6)  GO  TO  190 

I»!4l 
60  TO  192 

190  NH1ST*NHIST4N0HU) 

GO  TO  180 
200  CALL  SFT 
CALL  HY01C1 

IFURAO.GT. 7. OR.IAAD.LT.il  GO  TO  9999 
IF ( IRA0.LT.5)  GO  TO  215 
CALL  COR  Id 
CALI.  ROAIMP(C) 

CALL  R0B1C I 
IC*0 


3**rK&*8Sk  '  , 
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213  CALI.  *OC<C) 

IC=IC+1 
CALL  RDl (C) 

TFURETRN.EG.2)  Gfi  TL  214 
CALL  ROOtC) 

CO  1C  213 
2H  CALL  ROEIC) 

CALL  TSRIMP(C) 

GO  TO  216 

215  I  F( IPAD.LT.2)  GC  TO  220 
CALL  COR  ft.) 

CALL  ROAEXP(C) 

CALL  TSREXP(C) 

GO  TO  216 
22C  CALL  ROAICi 
CALL  TSR(C) 

216  CALL  POR 

CALL  PPR(C) 

CALL  CZR I C  > 

IFIISSW5.NE.0)  GO  TO  212 
IF  (N.LT.NF)  GC  TO  200 
CALL  HIST 
CALL  EXIT 
21?  CALL  ECHECK 
CALL  HIST 
CALL  PROL'T(C) 

CALL  FXIT 
5999  PRINT  7999 

7999  FORMAT! 26H0I LI EGAL  RAO.  INDEX  GIVEN. 
CALL  EXIT 
END 
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4A.  CLNUP(I,ISSW5)  (RAND  Version) 

CliNUP  is  designed  to  prevent  loss  of  any  calculations  when  an 
interval  timer  overflow  occurs.  If  I  is  0,  ISSW5  is  set  to  0  and  is 
set  non-zero  when  the  interval  timer  overflows.  The  interval  timer 
is  then  reset  to  allow  1  more  minute  of  computation.  XSSW5  is 
checked  in  EXEC  at  the  end  of  every  cycle.  If  it  is  non-zero, a 
history  edit  is  taken  and  a  print -out  occurs.  Then  EXIT  is  called. 
4B.  In  FORTRAN  version  CLNUP  is  a  dummy  subroutine. 

SIBFTC  CLNUP  REF 

SUBROUTINE  CLNUP  (I»J) 

J=0 

RETURN 

END 

5.  REOST (C .LIMIT) 

REOST  reads  the  interpolation  coefficients  from  the  equation  of 
state  tape  prepared  by  TABCOE.  The  T's,  p's  and  C's  are  stored  in 


C  array  as 

T's  for  P 

follows : 

of  1st  eq,  of 

state 

encountered 

on 

the 

tape 

p’s 

for 

P 

of 

1st 

eq.  of 

state 

encountered 

on 

the 

tape 

C's 

for 

P 

of 

1st 

eq.  of 

state 

encountered 

on 

the 

tape 

T's 

for 

E 

of 

1st 

eq.  of 

state 

encountered 

on 

the 

tape 

p's 

for 

E 

of 

1st 

eq.  of 

state 

encountered 

on 

the 

tape 

C's 

for 

E 

of 

1st 

eq.  of 

state 

encountered 

on 

the 

tape 

T's 

for 

K 

of 

1st 

eq.  of 

state 

encountered 

on 

the 

tape 

p's 

for 

K 

of 

1st 

eq.  of 

state 

encountered 

on 

the 

tape 

C's 

for 

K 

of 

1st 

eq.  of 

state 

encountered 

on 

the 

tape 

T's 

for 

P 

of 

2nd 

eq.  of 

state 

encountered 

on 

the 

tape 

C's  for  K  of  last  eq.  of  state  encountered  on  the  tape 

Four  tables  are  constructed  for  locating  numbers  in  the  C  table. 

fch 

lORDER^  contains  the  identification  number  of  the  IN0tn  equation  of 


o  r>  n 


state  read  from  the  tape.  IBEGT(i,j)  contains  the  address  of  the 
first  T  of  the  ITABfc^  equation  of  the  INO*"*1  equation  of  state.  ITAB  = 

1»  2  or  3  for  P,  E  and  K  respectively.  IBEGV(i,j)  and  IBEGC(i, j)  are 
the  first  locations  of  the  corresponding  V  and  coefficient  C.  This 
subroutine  is  identical  with  the  GENERATE  program  subroutine, 
see  p.  159  for  flow  chart. 

SIPFTC  REGST  Rr  F 

SUBROUTINE  REGST (C»L I KI T ) 

COMMON  /EOSCOM/  NCOS,  lOFOS(A),  T ORDER  I 6)  *  IRFGT(3,6),  DUM, 
l  I B  6  G  V  (  3 , 6 ) ,  IbEGC<3,6) 

n mc ns i qn  cm 

IF (KFCS.fw.f  )  RETURN 
REWIND  P 
!N0=C 

15  I °EGT ( 1 » 1 ) = l 
00  lie  I T  =  l » ICO 
RCAl-C)  I  EOS 

IFdEGS.Gr.O  )  GO  iC  1C 
PRINT  7C0C,INU»MECS 

7CC0  FORMAT  1 6 1H 1  END  CF  FOS  TAPE  ENCOUNTERED,  NO.  OF  EOS  FOUND  AN 
1PFAD  =  14,  36H  MO.  OF  EOS  N'EEDEC  IN  THIS  JOE  =  14) 

RETURN 

10  BACKSPACE  B 

READ  (B)  I  EOS, I TABNO , NOTS , NOVS 
BACKSPACE  H 
CO  IB  1=1,6 

IF(IEOS.eO.ICEUSm)  GO  TO  20 
IB  CONTINUE 
GO  TC  ICO 
?C  I NO= I NO* 1 

I  ORDER  {  INO)=  I  FfJS 
CO  IC7  IT AB=  1,3 

READ  (8)  IE0S,ITABN0, NOTS, NOVS 
IBEGVU  TAB,  I  NO)  =  I  REG  H  I  TAB  ,  I  N0)  +  N0TS 
ITC=IBFGTMTAP,INO) 

ITS=lTC+NOTS-l 
IVC=ITS*l 
I VS= I VC+NOVS- 1 
IF (  IVS.GT. LIMIT)  GO  TO  9'i9 

READ  <P)  (CU),  I  =  ITC,ITS),ICm,I  =  IVC,lVS) 

SKIP  NbXT  RECORD  ON  FUS  TAPE 
READ! 8 ) 

IHEGCIITAB, I  NO)  =  I  BEG V  C I  TAB, INQ)+N0VS 
N0CT=N0TS/2 
NCCV=N0VS/2 
I  T 0 T C  =  NOCT*9*NOCV 


,  u 
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ICC  *=  I8EGC( ITAB, INC) 

ICS-ICC+ITOTC-1 
IF( ICS. GT. LIMIT)  GO  TO  999 
READ  (8)  (C(I) »I=ICC,ICS) 

I8EGTUTA8+1,  I  NO)*  I BEGC  ( 1  TAB,  I  NO) -HTOTC 
107  CONTINUE 

IF( INO.EQ.MEGS)  GO  TO  120 
GO  TO  110 
C 

C  SKIP  NEXT  12  RECORDS  -  TO  BEGINNING  OF  NEXT  EOS  INFORMATION 
C 

ICC  CO  105  ISKIP  =1,12 
105  READ  (8) 

110  CONTINUE 
12C  REWIND  8 
RETURN 

599  PRINT  7C01 

7C01  FORMAT (47H0E0S  TABLES  REQUESTED  EXCEED  AVAILABLE  STORAGE.  ) 
CALL  EXIT 
END 


6.  ESTAB  (RAND  version  only) 

ESTAB  reads  the  output  description  deck  and  constructs  a  table, 
ITAB,  of  functions  to  be  printed  as  follows: 

ITAB1  .  is  the  BCD  name  of  the  jth  function  to  be  printed 
ITAB,  .  is  the  conversion  factor  for  the  jth  function  to  be 
printed 

ITAB-  .  is  the  number  of  significant  figures  of  the  jth  function 
J » J 

to  be  printed 

ITAB,  .  is  the  function  number  of  the  jth  function  to  be  printed 
It  then  calls  FORMS  to  establish  the  FORMAT  statements  necessary. 
Subroutine  ESTAB  is  a  dummy  in  the  FORTRAN  version. 

SIBFTC  ESTAE  REF 

SUBROUTINE  ESTAB 

RETURN 

END 

7.  FORMS  (RAND  version  only) 

FORMS  is  a  MAP  subroutine  which  uses  the  table  ITAB,  constructed 
by  ESTAB,  to  construct  the  necessary  formats  for  output  by  PROUT. 

8.  SFT 

At  the  beginning  of  cycle  n+1,  SFT  moves  those  variables 
calculated  during  cycle  n,  which  must  be  saved,  to  the  storage  for 
cycle  n-1.  It  then  sets  n  =  nFl. 


SIBFTC  SFT  REF 

SUBROUTINE  SFT 

C  COMMON  CAROS  LABELED  /IKA2/  AND  / IKA2B/  GROUPS  TO  BE  PLACED  HI 

C  SEE  TABLE  FOR  OTHER  SINGLY  LABELED  COMMON  CARDS  TO  BE  PLACED  HI 

J-JMAX 
h*N4l 
TM-TM4DTP 

10  VLM|J^n*VL< J41I 
PRMI J41)*PR< J4il 
EGM( J4l )»EG( J4l) 

ELMU4l|«ELIJ4i} 

IF  IJ.LT.I)  RETURN 

J-J-I 

GO  TO  10 

END 


SFT 


9.  HYD(C) 

HYD  is  called  by  EXEC.  It  calculates  R,  U,  V  and  Q  for  zones  1 
/\ 

through  j . 

HYD  also  governs  boundary  conditions.  It  is  possible  to  es¬ 
tablish  boundary  conditions  at  j  ~  0  for  U,  P,  T,  E  and  K  (but  not 
simultaneously).  However,  RMIN  must  be  greater  than  zero  in  order 
to  fix  any  other  minimum  criteria,  since  RMIN  =  0  implies  an  origin 
at  j  =  0  in  radial  or  cylindrical  symmetry  for  which  both  UMIN  and 
RMIN  are  identically  zero,  and  no  other  variables  need  be  defined. 

When  RMIN  j4  0  the  following  combinations  of  variables  are  permitted 

(R  and  U) ,  (R  and  P) ,  (R  and  T) , 

(R  and  U  and  P) ,  (R  and  U  and  T) ,  (R  and  T  and  (E  or  K))  ,  or 
((R  and  U  and  T)  and  (E  or  K)) . 

When  j'  =  JMAX,  HYD  determines  the  value  of  the  right  hand  boundary 
conditions  (maximum  j)  if  any.  The  following  combinations  are 
permissible 

U,  P  (step  function),  P  (analytic  from  PBOUND) ,  T  singly 
(T  and  (E  or  K)),  (P(analytic)  and  T)) ,  (P(analytic)  and 
T  and  (E  or  K) ) . 


JIBFTC  HYD  REF 

SUBROUTINE  HYD(C) 

C  COMMON  CAROS  LABELED  /IKA2/  AND  /.IKA28/  GROUPS  TO  BE  PLACEO  MERE 
INTEGER  DELTA,  REGNO,  UNCGS,  UNMKS 
REAL  KMIN,  XMAX,  KP,  KM,  XDM 

C  SEE  TABLE  FOR  OTHER  SINGLY  LABELED  COMMON  CAROS  TO  BE  PLACED  MERE 
DIMENSION  C(l) 

J*0 


IR* 

1 

10 

IF 

< J.GT. 

0) 

GO 

TO  200 

IF 

(Rll). 

GT. 

C.  i 

GO 

TO 

20 

UI1 

)*0. 

R  ( 1 

)*0* 

GO 

TO  440 

20 

IF 

INUMIN 

.GT 

.0) 

GO 

TO 

170 

21 

IF 

( NPMIN 

.GT 

.0) 

GO 

TO 

100 

IF 

(NTMIN 

.LE 

.0) 

GO 

TO 

420 

IF 

(NTMIN 

•  LE 

m 

GO 

TO 

45 

1  =  1 
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30  IF  CTM.LE.TTMINC II I  GO  TO  40 
IF  CI.CL.NTMIN)  GO  TO  420 
!»!♦! 

GO  TO  30 

40  TEHC ll-TMINC  I I 

TEMSQCll«TEMm4*2 
TEW3I  l  I*«TEMSQ|  1  l*TEH4 1 1 
TEM4Cll«TEMSeil|4TEMSQ{ll 
GO  TO  50 

45  TEMCII-TMINC  1> 

TEMSGC1}«TEM{1I**2 
TEfnm«TEMSQm*TE«m 
TEM4m=TEMS0(  IWEMSQC1  > 


50 

IF 

CNEMIN.LE.O) 

GO 

TO 

130 

IF 

{NEMIN.LE.il 

GO 

TO 

75 

1-1 

60 

IF 

CTM 

•  LE.TEMINC 1 1 

I  < 

GO  TO 

70 

IF 

(I. 

GE.NEMIN) 

GO 

TO 

420 

I-I 

♦  1 

GO 

TO 

60 

70 

EGC 

11- 

EMINCII 

GO 

TO 

420 

75 

EGC 

11- 

EMINCII 

GO 

TO 

420 

100 

IF 

CNPMIN.LE, l) 

GO 

TO 

125 

1-1 

no 

IF 

ITN 

•  LE. TPMINC 1 1 

1  < 

GO  TO 

120 

IF 

Cl. 

GE.NPMIN) 

GO 

TO 

420 

I-I 

♦  I 

GO 

TO 

110 

120 

PM 

n- 

PMINCII 

GO 

TO 

420 

125 

PM 

II- 

PMINCII 

GO 

TO 

420 

130 

IF 

CNKMIN.LE.O) 

GO 

TO 

420 

IF 

(NKMIN.LE.n 

GO 

TO 

150 

1-1 

140 

IF 

CTM 

«LE. TKMINC 1 1 

I  1 

GO  TO 

155 

IF 

(I. 

GE.NKMIN) 

GO 

TO 

420 

I-I 

♦  1 

GO 

TO 

140 

150 

KM 

11- 

KMINC1) 

GO 

TO 

420 

155 

KM 

11- 

KMINCII 

GO 

TO 

420 

170 

IF 

CNUMIN.LE.il 

GO 

TO 

190 

1-1 

100 

IF 

CTM 

•  LE.TUMINC 1 1  I 

GO  TO 

195 

IF 

Cl. 

GE.WOMIN) 

GO 

TO 

21 

I-I 

♦  1 

GO 

TO 

180 

190 

UCl 

l-UMINC  11 

GO 

TO 

21 

■ 


•173 


195 

200 

210 

220 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

355 

380 


U( 1 )*UM2N( I ) 

GOTO  21 

IF  U.LT.JMAX)  GO  TO  420 
IF  (NURAXoLE.O)  GO  TO  250 
IF  (KUftAX.LE.l)  GO  TO  240 


1-1 


IF  (TR.LE.TURAXHn  GO  TO  220 
if  tl.GE.MUMAX)  GO  TO  430 
!-!♦! 

GO  TO  210 
IKJMAX^n-UMAXm 
GO  TO  430 
OUMAX«l)-UMAXm 
GO  TO  430 

IF  (NPMAX.LE.O)  GO  TO  290 
IF  tNPMAX.LE.l)  GO  TO  210 


1-1 

IF  (TH.LE.TPMAXU)  )  GO  TO  270 


IF  (I.GE.NPHAX)  GO  TO  420 
!«!*1 
GO  TO  260 
PRUMAX«2»-PRAXm 
GO  TO  420 
PMJRAX42)«PMAXm 
GO  TO  420 

CALL  P800M01TM(PR| JRAX42U 
IF  (NTMAX.LE.OI  GO  TO  420 
IF  INTKAX.LE.11  GO  TO  310 


I-l 


IF  (TR.LE.TTNAXU)  1  60  TO  320 
IF  (I.CE.NTNAX)  GO  TO  420 
I«I41 


GO  TO  300 

TEM(  jRAX42)«TMAX(U 
GO  TO  330 

TERUMAX42)>TNAXm 
IF  (NEMAX.LE.O)  GO  TO  380 
IF  (NENAX.LE.l)  GO  TO  355 
I«l 


IF  ITR.LE.TENAXI I)  )  GO  TO  330 
IF  U.GE.NEKAX)  GO  TO  420 
IM41 
GO  TO  340 
EGUMAX42)«EMAXU} 

GO  TO  420 
EGUNAX421-ENAXU1 
GO  TO  420 

IF  (NKKAX.LE.O)  GO  TO  420 
IF  (NKHAX.LE.l)  GO  TO  400 
I«l 
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390  IF  (TM.LE.TKMAXU)  )  60  TO  405  ' 

IF  U.GE.NKNAX)  GO  TO  420 
i-m 
60  TO  390 

400  KPU*Ax*n«xftAxm 

60  TO  420 

405  KP«  JKAK*l)*KNAXm 

420  IFINUN!N.GT.O.AN0.4.EQ»O.AND.TN.LE.TUNIN(NUMIN))GO  TO  430 
IF'OELTA.EQ.I.ANO.RI J4l).EQ.O.)  PRINT  7000,  4 
IF(DELTA.EQ.l.ANO.R(44l),EQ.O.)  CALL  EXIT 
7000  FORMAT I 22H0R  IS  0  IN  HVO  IN  ZONE  16) 

U<'mt«UU4l)4DT*At'J*it**tDELTA~I)*<-RR(j42)4PRU4n-Q<4+2)+QU+l! 
ll/DNESSI J4|) 

430  R(44l)-R( J41)40TP*U« J41) 

440  IF  (4.LE.0)  60  TO  465 
ASSIGN  455  TO  NVL 

442  IF  (0CLTA.LE.2)  GO  TO  445 

VL(4«l)«  <AI44l)-At4))*(A<44t)4*24RC44l)4R(4)4R|4)*P2)/ 

1  0MASSIJ4l)/3. 

60  TO  452 

445  IF  (OELTA.LE.l)  GO  TO  450 

VLIJ41).  ( R ( J4l )-R |J))P(RIJ4 l )4R( J ) ) FOMAS S (441 )/2» 

GO  TO  452 

450  VLI44ll«fRI44U-R«4))/0NASSI44i) 

452  60  TO  NVL  (455,4«5) 

455  ASSIGN  465  TO  NQ 

460  IF(VLU4l).GE.VLN(44li)  GO  TO  461 
Q«44l|-eU!R)P  0NASSI44H6»2*1VLI44ll-VUM44l»|662/ 

1  MVL!44l)4VLM44l>|P0TP*Pf6«UAf44l)4Rl4n/2.)**(0ELTA-in**2) 
IFIC2I 1R ) «EQ«0. )  60  TO  442 

Q<  44l )*Q( 44 1 )4C2I IR)*ONASSI 441 )*ABS ( VL ( 441 )-VLN( 441 ) )/ 

1  mR|44n4R(4))/2.)*4(DELTA-l)60TP4IVLC44l)4VLN(44im 

462  GO  TO  NQI 465,490) 

461  QI44D-0. 

GO  TO  NQ  (465,490) 

465  IF  (4.NE.4REGUR)  )  GO  TO  470 
IR-IR4) 

470  IF  (4.GE.4HAT)  GO  TO  480 
4-441 
GO  TO  10 

480  ASSIGN  485  TO  NVL 
4-4HAT41 
60  TO  442 

485  ASSIGN  490  TO  NQ 
GO  TO  460 

490  RETURN 
END 
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io.  roa(c)  ; 

J 

ROA  is  called  by  EXEC.  It  calculates  E,  P  and  T  fer  hydro¬ 
dynamics  only  problems;  i.e.,  for  zones  j  -1,  < 

If  Z2  is  a  velocity  we  use  the  deck  JHTU. 

If  Z2  is  a  temperature  ve  use  the  deck  JHTT. 

Each  time  we  go  thru  ROA  we  test  the  appropriate  condition  against  j 

Z2  to  see  if  j  needs  to  be  facreased.  If  TEMj,  >  Z2  (or  >  Z2)  1 

then  “J  «  3+1  •  j 

The  energy  is  considered  to  have  converged  when  AE  <  X6»E.  | 

SIBFTC  ROA  REF 

SUBROUTINE  ROAICI  f 

C  COMMON  CAROS  LABELED  /IKA2/  AND  /IKA2B/  CROUPS  TO  SE  PLACED  HE 
INTEGER  DELTA,  REGNO,  UNCGS,  UNMKS 
REAL  KM! N,  KMAX,  KP,  KM,  RDM 

C  SEE  TABLE  FOR  OTHER  SINGLY  LABELED  COMMON  CAROS  TO  «E  PLACED  HE 
DIMENSION  C(l) 

IRX 1 

CALL  REGSRUR.SR) 

J=1 

i  CALL  ZON5R(J,SZ> 

PR< J*1)=PRM< J+l) 

EX=C. 

NCOT  *0 

10  ESS=EGM(  J+I)4(SR>SZ)*DTP+(  (PR(J*l>*PRNf 

i  ♦(vLMu+n-vLU+m 

IF(ABS((ESS-EX)/KSSKLT.X6)  GO  TO  100 
2C  EX=FSS 

CALL  PETIMATI  J+l)  ,TEM(  J+1),VL(  J+I),PR(  J+l > ,EX » J,C) 

NC0T=NC0T*i 

IFINCOT.LE. 10)  GO  TO  IQ 
PRINT  7000 

7CCC  FORMAT  (IOHOROA  LOOP.) 

CALL  EXIT 
ICC  EG(Jvl)=EX 

IF! J.NE.JREGIIR) )  GO  TO  160 
IR=  IR+ 1 

CALL  RFGSR ( IR » SR ) 

160  I F ( J.GE.JMAX)  GO  TO  180 
IF( J.GE. JHAT)  GO  TO  170 
165  J*J+1 

GO  TO  1 

17C  CALL  JHT(TEM(JHAT+i),U(JHAT),Z?,IANS) 

IFUANS.EQ.O)  RETURN 
JHAT= JHAT  *1 
GO  TO  165 
18C  RETURN 
END 


r 

V 


am***  -  - 
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11.  REGSR(NR.SR) 

REGSR  determines  the  source  or  sink  term,  SR,  for  region  NR. 

It  does  this  by  adding  the  proper  value  of  the  step  function  for  that 
region  to  SFN,  the  source  or  sink  term  returned  by  RGSRFN,  the  sub¬ 
routine  for  calculating  non-step  source  or  sink  functions. 


SIEFTC  REGSR  REF 

SUBROUTINE  REGSR  (NR, SR) 

C  COMMON  CAROS  LABELED  /IKA2/  AND  /IKA28/  GROUPS  TO  BE  PLACED  H 
INTEGER  DELTA,  REGNO,  UNCGS,  UNM.KS 
REAL  KM  I N ,  KKAX ,  KP,  KM,  KDM 
INTEGER  RS 
I  R=  1 
SR=C. 

VC  IE  (NR.EQ.RSUP)  )  GO  TO  IOC 
IF  UR.GE.NRSRCE)  GO  TO  120 
IR=I»>*1 

go  ir  oc 

ICO  IF  (NRSUR).EC.l)  GO  TO  130 
K  =  l 

I1C  IF  UM.LE.TMRS(K,IR)  )  GO  TO  HC 
IF  (K.GE.NRS(IR)  1  GO  TO  120 
K*K+1 

GC  TO  11C 

120  CALL  RGSRFN (NR , SFN i 
SR=SR+SFN 
RETURN 

13C  IF(TM.GT.TMRS(1,IR)>  GO  TO  120 
SR=£RS( 1, IRJ 
GO  TC  120 
HO  SR=ERS(K,  IR ) 

GO  TO  120 
ENO 
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12.  RGSRFN(NR,SFN) 

The  analytic  source  function  for  a  region  is  defined  in  this 
subroutine  and  its  value  is  returned  as  SFN.  As  this  subroutine  is 
always  called  by  REGSR  a  dummy  entry  point  is  provided  in  ALIBI 
and  also  SFN  is  set  to  zero. 

13.  Z0NSR(J,SZ) 

ZONSR  is  similar  to  REGSR,  but  controls  zone  sinks  and  sources. 


SI8FTC  ZONSR  REF 

SUBROUTINE  ZONSR  U,SZ1 

C  COMMON  CAROS  LABELED  /IKA2/  AND  /IKA26/  GROUPS  TO  BE  PLACED  I 
INTEGER  DELTA,  REGNO,  UNCGS,  UNMKS 
REAL  KKIN,  KMAX,  KP,  KM,  KDM 
I  Z=  1 

sz=c. 

IOC  IF  CJ.EQ.JSUZ)  )  GO  10  120 
IF  { I Z.GE.NZSRCE )  GO  TO  160 
IZ*IZ*l 
GO  TO  100 

12C  IF  (NZS(IZ).EO.U  GO  TO  150 

K=l 

130  IF  <TM.Lt*TMS(K,lZ)  )  GO  TO  140 
IF  (K.GF.NZSUZ)  I  GO  TO  160 
K*KM 
GO  TO  130 
140  SZ»ES(K,m 
GO  TO  160 

15C  IF ( TM.GT .TMS( l, IZ ) I  GO  TO  160 

sz=esu,m 

16C  CALL  ZNSRFN  (  J ,  SFN1) 

SZ=SZ*SFN 

RETURN 

FND 

14.  ZNSRFN (J,SRN) 

ZNSRFN  is  similar  to  RGSRFN,  but  controls  zone  non-step  sink  and 
sources . 

15.  TSR(C) 

TSR  is  the  time  stability  routine  for  hydrodynamics  only  problems. 

It  is  called  by  EXEC  and  controls  the  size  of  At.  ICK,  IH,  IP  are 
flags  coming  from  PPR.  If  they  are  not  equal  to  zero  this  indicates 
that  the  At  has  been  modified  in  PPR  so  that  the  next  cycle  will  have 
the  exact  time  of  print  out,  history  edit  and  energy  edit  specified. 

In  order  to  continue  the  problem  with  the  maximum  possible  time-step, 
as  determined  by  stability  criteria  in  TSR,  the  original  time-step 
is  preserved  as  in  PPR  as  DTPS  and  DTS. 

A* 


- ; 


Sv' s 


i 


L 
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6I8FYC  TSR  REF 

SUBROUTINE  TSRICI 

C  COMMON  CAROS  LABELED  /IKA2/  AND  /IKA2B/  CROUPS  TO  BE  PLACED  HERE 
INTECER  DELTA*  RECMO*  UNCCS,  UNMKS 
REAL  KMINf  KMAX,  KP,  KM,  KOM 

C  SEE  TABLE  FOR  OTHER  SINGLY  LABELED  COMMON  CARDS  TO  BE  PLACED  HERE 
DIMENSION  C(l) 

IFIICK.EQ.O.AND.IH.EQ.O.AMO.IP.EQ.OI  GO  TO  150 
0TM2  «  DTP 
0TM1  «  DT 
OTP  -OTPS 
OT  «  DTS 
150  J-l 

RECNQ-1 

X20-0. 

X30-G. 

160  XX«RtJ*lSP*l2*(DELTA-mRPRU^l|6C3IRECN01/(YL{ J*U*DMASS< 

IF  ( XX.LE.X2C1  GO  TO  200 
X20-XX 
JOMECA-J 

200  IF  (VLMU+ll-VLUm.LE.G. »  GO  TO  220 
XX-tVLMI  Jm-VLUMmCAIRECNOJ/VUJm 
IF  IXX.GT.X301  GO  TO  240 
220  IF  (J.GE.JHAT)  GO  TO  260 
J»4*l 

IF  IJ.LE.JREGIREGNG)  1  GO  TO  160 
REGNO-REGMQ+1 
GO  70  160 
240  X30-XX 
JLAM-J 
GQ  TO  220 
260  X40-0TP 
SL1-0. 

280  IF  (X20*X40**2.LT.l. >  GO  TO  300 
X40-  8.*X40/9. 

SLl-l. 

GO  TO  280 

300  IF  (X304X40/0TP.LT.1. I  60  TO  320 
X40-8. 6X40/9. 

SLl-l. 

GO  TO  300 

320  IF  (SL1.NE.0.)  GO  TO  340 
X40-9. 6X40/8. 

SLl-l. 

GO  TO  280 

340  ONECA-X206X4O662 
AMB0A-X306X40/0TP 

IF  1 ICK.NE.O. AND. IH.NE .0. AND. IP.NE .0 )  GO  TO  1000 
DTM1-DT 
0TM2-0TP 
1000  OTP  •  X40 

OT*  «56(0TP6DTM2) 

RETURN 

END 


F  •  — 
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16.  JKT(T,U,Z2,IANS) 

JHT  is  called  by  ROA,  ROAEXP  or  ROAIMP,  to  check  the  value  of 
TEM(JHAT)  (or  K(JHAT))  versus  Z2.  If  this  value  exceeds  the 
criterion,  IANS  is  set  to  one  and  JHAT  is  increased  by  one  in  the 
calling  subroutine.  If  temperature  (or  velocity)  of  the  zone  is 
greater  than  or  equal  to  Z2,  it  sets  IANS=1  and  returns.  The 
calling  routine  then  modifies  JHAT  accordingly. 

ilPFTC  JHT  T  REF 

SUBRUU  T  I NF  JHT  (  T  *11*22 1  IANS) 

I  ANS=C 

IF(T.GE.Z2)  l  ANS= 1 

RETURN 

END 


tlBFTC  JHTU  RFF 

SUBRGUT  INF  JHT ( T ,U , Z 2 , I ANS ) 
I ANS=0 

IFJU.GE.Z2)  I A  ,N  S  =  1 

RETURN 

END 


r 


*•  « 
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17,  ROAEXP(C) 

ROAEXP  is  called  by  EXEC.  It  does  the  non-hydrodynamics 
calculations  for  explicit  radiation  problems. 

The  P,  E  and  T  convergence  schemes  are  essentially  the  same 
as  those  for  ROA  for  hydro  only.  In  addition,  ROAEXP  calculates 
K,  K£M  and  L. 


$ IBFTC  ROAEXP  REF 

SUBROUTINE  RQAEXP(C) 

C  COMMON  CAROS  LABELED  /IKA2/  AND  / IKA2B/  GROUPS  TO  BE  PLACED  HE< 
INTEGER  DELTA,  REGNO,  UNCGS,  UNMKS  j 

REAL  KM  I N ,  KMAX ,  KP,  KM,  KDM  i 

C  SEE  TABLE  FOR  OTHFR  SINGLY  LABELED  COMMON  CARDS  TC  BE  PLACEC  HE 
DIMENSION  C(l) 

J*  1 
!R*i 

i  EX*0 . 

PI 2=PRM ( J  ♦  l ) 

UCQT=0 

1C  EG( J+l )*EGH( J+l )+(Pl2+Q( J+l > ) ♦( VLM( J+l )-VL( J+l) )  ♦ 

1  OTPMELMl  J)-ELM(  J+l)  )/DMASS(  J+l)  -  D(J+l) 

CALL  GET VAR (2, 2, EG! J+l) »VL( J+l ),J,TEM( J+l) ,C) 

TEM4( J+1)=TEM( J+l J**A 

CALL  PEM l,MAT( J+l),TEM( J+l) ,VL( J+l) ,J,0,PR( J+l) ,C) 
IF(NCCT.GT.IO)  GO  TO  ZC 

IF  C  ARS(  (EX-FG(  J  +  l)')/EG(J+l)  >.Lt.X6>  GO  TO  50 
PI  2= (PR (J+l J  +  PRM1 J+i) )/?. 

LX=EG( J+l ) 

NCOT=NCOT ♦ 1 
GO  10  10 

2G  PRINT  1000,  EX,EG(  J+l) ,TFM( J  +  l) , J,PR( J+l) 

1CCC  FORMAT (11HCRCAR  ERROR  3E l 6. 7 , I 6,E 16 . 7 > 

CALL  EXIT 

5C  IF (J.GT.JSTAR+l)  GO  TO  IOC 

TAM ( J ) = ( (TEMAlJ+l )+TEM4(J) )/2. )  ♦* • 25 
IF(J.NE.l)  GC  TO  90 
IF  (NKMIN.EQ.C)  KM(J)  =  0. 

GO  TO  95 

90  CALL  PEK(3,MAT( J) ,TAM( J) ,VL( J) ,J-1,C,KM( J),C) 

95  CALL  PEK(3,MAT( J+l) ,TAM( J),VL( J+l ) , J-l , 0 ,KP ( J ) ,C ) 

K0M( J)=.5+DMASS( J)*KM(J)  +  .5+DMASS ( J+ l > *KP ( J ) 

!F(R(J).LE.C.)  GO  TC  100 

EL(  J)=  R(  J  )♦♦(?♦(  CELT  A-1-)  )  +  (TEMA(  J)-TEMA(  J  +  l)  )/KDM(  J) 

ICC  IF  (J.GF.JMAX)  RETURN 

IF  (J.GT.JSTAR+l)  GO  TO  120 
115  J=J+1 

GO  TO  1 

12C  JF( J.LF. JHAT+1 )  GO  TC  115 


- -jcw* 


UU  IF(TEy{JSTAR4l).LL.Zl)  r,n  TC  15C 
I  F  (  Z.  1 .  EG  .  0.  )  GU  TO  150 
JST  AR= JS  T  AR  + 1 

IFJJSTAR.LT.JHAT)  GO  TO  130 
JHAT= JHAT+ 1 
GO  TO  130 

150  I F  C  rEM(JHAT4-l).LE.Z2)GO  TG  160 
JHAT= JHAT ♦ l 
GO  TO  150 

160  IFJ JHAT.GT. JMAX)  JHAT= JMAX 

IFJJSTAR.G6.JHAX)  JSTAR=JHAX-1 

RETURN 

ENC 


18 .  TSREXP (C) 

TSREXP  is  called  by  EXEC.  It  controls  the  size  of  At  in  explicit 
radiation  problems . 


SI8FTC  TSREXP  REF  . 

SUBROUTINE  TSREXPJCI  1  ' 

C  COMMON  CAROS  LABELEO  /IKA2/  ANO  /  IK A2B/  GROUPS  TO  BE  PLACEO  HERE  f 

INTEGER  DELTA,  REGNO,  UNCGS,  UNMKS  '  J 

REAL  KMIN,  KMAX ,  KP,  KM,  KOM  < 

C  SEE  TABLE  FOR  OTHER  SINGLY  LABELEO  COMMON  CAROS  TO  BE  PLACEC  HERE  •  j 

DIMENSION  CJ1) 

IF ( ICK.EQ.O. AND. IH.EQ .0. ANO. IP .EQ .0 )  GO  TO  5 
CTM2  *  DTP 
0TM1  «  DT 
OTP  *DTPS 
DT  *  DTS 
5  J*l 

JGAMMA-l 

IFJU.NE.O.)  GO  TO  1C 
X10»DTP*2. 

GO  TO  150 
10  X10*0TP*2. 

50  CALL  P£K<2»MAT<J*i),TAM{j4l),VL<J*n»J,l,0E,C) 

XIOTRM.OMESSJ J*1)*KDM{ JA 1 )  *DE/ <8. *R ( J*  1 )  ♦♦  (2MDELTA-1 ) > 
l  *TAM( JA1)**3) 

X10TRM*ABS( X10TRM ) 

IFJX10TRM.GE.X10)  GO  TO  100 
JGAMMAxJ 
X10»X10TRM 

100  IFIJ.GE.JSTAR)  GO  TO  150 
J*J  +  i 
GO  TO  50 
150  J*i 

REGNO* 1 
X20*0  • 

X30*0. 


160  XX"AUM>*6(26(0ELTA-ni*PRIJMl*C3(REGN0l/!VL(JM*6DNAS$UM|6*; 

IF  (XX.tE.X20l  GO  TO  200 
X20-XX 
JONECA-J 

200  IF  CVLNtJMl-Vtt JMl.LE.Q.l  GO  TO  220 
XXMVLNfJ*ll-VLfJMn6C4tRECN0>/VLtJMl 
IF  (XX.GT.X30!  60  TO  240 
220  IFf4.6E.JHAT  1  60  TO  260 
J"JM 

IF  (J.LE.4AI6IREGNO)  I  GO  TO  160 
REGNO" REGNO* 1 
GO  TO  160 
240  X30»XX 
JLAN-J 
GO  TO  220 
260  X40-0TP 
SL1-0. 

270  IFIX10.GE.X40l  GO  TO  280 
X40-8.6X40/9. 

SLIM. 

GO  TO  270 

280  IF  (X20*X406*2.LT.1.I  GO  TO  300 
X40*  8.6X40/9. 

SUM. 

GO  TO  280 

300  IF  (X306X40/OTP.LT.1.)  GO  TO  320 
X40«8. 6X40/9. 

SUM. 

GO  TO  300 

320  IF  (SL1.NE.0.)  GO  TO  340 
X40-9. 6X40/8. 

SUM. 

GO  TO  270 

340  IFCX40.NE.0.1  GO  TO  341 

PRINT  7000,  X10,X20*X30*4GAMMA,40MEGA*4LAM 
7000  FORMAT ( 3E16.7  *3161 
CALL  PROUT (C 1 
CALL  EXIT 

341  ONE GA»X 20*X40**2 
ANB0A«X30*X40/0TP 

GANNA*X40/Xl0 

IF  ( ICK.NE.O.ANO.IH.NE.O.AND. IP.NE.O)  GO  TO  1000 
0TN1-0T 
OTN2-OTP 
1000  OTP  »  X40 

0T«  .5*(DTP*0TM2> 

RETURN 

ENO 


*1*-  ***&*■■*'- 
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19.  CDR(C) 

CDR  Is  called  by  EXEC.  It  computes  the  radiation  depletion 

term. 


SIBFTC  COR  REF 

SUBROUTINE  CDR(C) 

C  COMMON  CARDS  LABELED  /IKA2/  AND  /IKA2B/  CROUPS  TO  BE  PLACED  HERE 
INTEGER  DELTA,  REGNO,  UNCGS,  UNMKS 
REAL  KMIN,  UMAX,  KP,  KM,  KOM 

C  SEE  TABLE  FOR  OTHER  SINGLY  LABELED  COMMON  CAROS  TO  BE  PLACED  HERE 
DIMENSION  CU) 

00  5  IR«1,15 

5  THSMM(IR)*  THSUM(IR) 

00  10  IR*1 » 15 
10  THSUN(IR)»0. 

IFLAG-0 

SUMDL-O. 

JNIN-JHAT 

IR-l 

11  IF(JREGUR).GE.JM1N>1)  GO  TO  13 
IR«IR*1 

GO  TO  11 

13  CALL  REGSR(IR.SR) 

IF  (IRAD.EQ.2.0R.IRA0.EQ.5)  GO  TO  32 

12  IF  (IRAD.EQ.3.0R.IRAD.EQ.6)  GO  TO  14 
IF  (IR.NE.NREG)  GO  TO  14 

ETA  *  1 ./ { 1 . 293E-3*VL I JMIN) ) 

T4  «  TEM( JMIN) **4 

FLAM  -  .24E-3*((1.  +  1./U00.*ETA))/T4**2  ♦  1000. /ETA**. 33333333)/ 

1  (ETA*T4) 

GO  TO  16 

14  CALL  PEK ( 3«MAT( JMIN) «TEM( JMIN) , VL ( JMIN) »  JK IN-1, 0, FK,C ) 

FLAM*1 .3212E*3*VH  JMIN)/FK 

16  DELER-RI JMIN)-R(JMlN-l) 

IF IDELER/FLAP.GT • 1. )  GO  TO  15 

DELIL«OELER/FLAM 

GO  TO  20 

15  DELIL-1. 

20  IFIDELIL.LE. l.-SUMDL )  GO  TO  25 
DELIL»1.-SUMDL 
25  SUMDL»SUMDL*DELIL 

THETA(JMIN)»1.134E-3*UR<JMIN)*RCJMIN-i)5/2.)**(DELTA-l)*TEM4CJMlN! 
1  ) *DTP*OELIL 

IF  (IRA0.EQ.7)  THETA! JMIN ) »THETA ( JMIN)*25./ I 25. +3. 5*TEMSQ< JMIN)* 

1  TEM3( JMIN) ) 

IF  URA0.EQ.4)  THETA ! JMIN )«THETA< JMIN )*25./I25. *3. 5*TEHSQI JMIN)* 

1  TEM3( JMIN) ) 


'V 


-m- 


THSUNC IR)«THSUHI I R ) ♦ THETA ( JHI N » 
DIJRINJ-TMETATJRINl/f 2.*0HA$SI JHIN)  ) 

28  CALL  ZONSR(JNIN-l,SZi 

THETA! JMN»-THETA(  J*IW}-2.R0KASS( JNIN)*! SR*SZ)*OTP 

DUHIH)-DIJM!K)-tSMSZS*OTP 

IF! IFLAG.NE.O)  GO  TO  30 

IFISUMOL.GE.l.)  GO  TQ  33 

lFUHIN.LE.il  GO  TO  AO 

JHIN-JH1N-1 

IFUR.EQ.l)  GO  TO  12 

(FURlN-l.GT.JREG!lR<»in  GO  TO  12 

IR-IR-1 

CALL  RE6SR! IR»SR) 

GO  TO  12 
30  JH1N-JHIN-1 

IF!  JRlN.LTd)  RETURN 

32  IFLAG-1 

33  OUHINl-O. 

THETAUHIN1-0. 

IFUR.EQ.l)  GO  TO  28 
IFlJHIN-l.GT.JRECtlR-l))  GO  TO  28 
IR-IR-1 

CALL  REGSRUR.SR) 

GO  TO  28 
35  IFLAG-1 

JHIN-JHIN-l 
GO  TO  33 
RETURN 
END 


40 


oetu- 


/\2o 

^OEUlKi 

Jt-SUWOLK’ 


SUMDL«  SUMDL  +  DE.LIL, 

1  a  .  n  +  '/t 

VjWH'i)  ’  •  0£Ul' 


v  Irad  *4-1 
oc  . 
N(1RA0»7)/ 


> 


20.  ROAIMP(C) 

ROAIMP  is  called  by  EXEC.  It  computes  the  first  guess  for 
energy,  temperature  and  pressure  for  implicit  radiation. 


ilPFTC  ROAIMP  REF 

SURROUTINt  ROAIHP(C) 

C  COMMON  CAROS  LABELED  /IKA2/  ANO  /IXA2R/  GROUPS  TO  BE  PLACEO  HERE 

INIEGtR  DELTA,  REGNU,  UNCGS,  UNMKS 
REAL  KMIN,  KMAX ,  KP,  KM,  KOM 

C  SEE  TABLE  FOR  OTHER  SINGLY  LARELEO  COMMON  CARDS  TO  BE  PLACED  HERE 

DIMENSION  C(  l) 

TFMSCI l)=TFM(i)**2 
TEMT(lJ-TEMSQ(l)*TEM(l) 

TEM4  ( l)=TEMSQ( l )**2 
J=1 

1  EG( J+l  )=EGM{ J+l  )  -  DIJ+I)  +  DTP*{ELM(J)-ELMIJ+1))/ 

i  omassij+i>  ♦  (prm( j+d+gi j+i))*<vlmu+i)-vl<j+i)  ) 

I F ( EG( J  +  l ) »LE»0«  )  PRINT  1000, JtEG( J+ 1 ) ,EGM(J+ 1) ,0< J  + 1) »DTP , ELM ( J ) » 
1£LM( J+l) ,0MASS(J+1) >PRM( J+l) »Qt J+1)«VUU  J+ll«VL( J+l) 

1C00  FORMAT  { 93H0 J , EG U+l ) , EGK{ J+ l ) , D I J+ 1 ) ,DT P , ELM { J) , ELM ( J+ 1 ) , DMAS S ( J+ 
ll)(PRM( J+l)«Q( J+l) «VLM( J+1),VL( J+l )  //I  10, 5E20. 7//6E20. 7  ) 

CALL  GET VAR (2,2, EG( J+l),VL< J+l) , J,TEM( J+l) ,C) 

Y6MSQU+l)  =  TEMU+l)*TEM(  J+l) 

TEMTC J+l)=TEN(J+l)*TEMSQl J+l) 

TEMM  J  +  1)  =  TEMSQ<  J+l  )  +  T£MSQI  J  +  l  ) 

CALL  PEM 1,NAT( J+l) , TEMtJ+1) fVl(J+l),J'0,PR(J+l),C) 

10  IF? J.GE. JMAX)  RETURN 
IF  f J,GE, JHAT)  GO  TO  20 
J  =  J+1 
GO  TO  l 

?C  IFITEM(JHAT+1).LE. 12)  RETURN 
JHAT=JHAT+1 
RETURN 
END 


ROAIMP 


iirnj 


TEMS^  (>)  =  (T_./J 
.EM  3  (0  -  (T.i/2,)S 
TEM4  (l)  *  (T.,/04 


21.  ROB(C) 

ROB  is  called  by  EXEC.  It  computes  the  first  guess  for  opacity 
and  luminosity. 


ilBFTC  ROB  REF 

SUBROUTINE  ROfi(C) 

C  COMMON  CAROS  LABELED  /IKA2/  AND  / I K A2B/  GROUPS  TO  BE  PLACED  HERE 
INTEGER  OELTA,  REGNO,  UNCGS,  UNMKS 
REAL  KM  I N ,  KMA  X ,  KP,  KM,  KDM 

C  SEE  TABLE  FOR  GTHER  SINGLY  LABELED  COMMON  CAROS  TO  BE  PLACED  HERE 

DIMENSION  C(l) 

J=i 

I  TAM(J)  =  { ( TEMM  J  +  1 )  +  TEM4 ( J ) )/?»  ) **  .  ?5 
IF(J.NF.l)  GO  TO  )G 
IF  (NKMIN.GT.C)  GO  TC  15 

km  ( n=o. 

GO  TO  15 

1C  CALL  PFK( 3  ,  M AT { J ) , T AM ( J ) , VL ( J ) *J-1»C»KM(J),CJ 
15  CALL  PEK(3,MAT(J+l),TAM(J),VL{J+l),J-l,C,KP(Ji,Ci 
KDM(J)=(DMASS(J)*KM{J)  ♦  DM ASS ( J* 1) *KP (J )\ ♦. 5 
IF (B ( JJ.LE.O. )  GO  TO  20 

CL  (  J  )  =  DELTA-1  )  )  *  (  TE  M4  {  J  ) -TEM4  {  J* 1 )  )  /KDM  (  J  ) 

IF(J.NE.l)  GC  TC  17 
GKMM  =  (  . 

GO  TO  Id 

17  CALL  PFK(  3, MAT! J) ,TAM(J) ,VL( J)  , J- 1 ,  1  , DKMM , C ) 

18  CALL  PFK(3,MAT(J*l)tTAM(J),VL(J+l)»J— l»l, DKMP ,C ) 

DKDMTM  =  DMASS( J+ 1 ) *DKMP  +  OMASS ( J  > *DKMM 
DKDMPI J)=.?5*(TtM( J»l)/TAM( J) )**3*CKDMTM 
OKDMM( J)=.25*(TEMI J)/TAM( J) ) **3*DKDMTM 
2C  J  =  J  ♦  1 

IF ( J.LE . JSTAR+1 )  GU  10  1 

RETURN 

END 


22.  ROC (C) 

ROC  is  called  by  EXEC.  It  calculates  the  coefficients  for  the 
forward  backward  substitution. 


II Pf  TC  ROC  «LF 

SUBROUTINE  ROC(C) 

C  COMMON  CAPOS  LABELED  /IKA2/  ANC  /1KA2P/  GROUPS  TO  BE  PLACED  HERE 
INTtGER  OELTA*  REGNO ,  UNCOS*  UNMKS 
REAL  KMIN,  KMAX,  KP,  KM,  KDM 

C  SU  TABLE  FOR  OTHER  SINGLY  LABELED  COMMON  CARDS  TO  8F  PLACED  HERE 

DIMENSION  CU) 

J=1 

IFIPin.LE.U.)  GO  TO  10 
R4  =  P 1 1 )**<?*( DFLT A- 1)  ) 

A=RA*A.*TFM3( 2) 4EL( l)*OKDMP(  1) 

G( 1 )  =  A/KOM{  1  ) 

CAP J I  1 ) =0 . 

10  $IGIJ+l)  =  2.*DMASS(J+l)Mt-GM(J+l)~EG(J  +  l)  4  { I  PR  f  J  •*  1  )  +  PRM(J+l)  )  /  2* 

1  4Q(  J4t)  )  +  (VLM(  J411-VLI  J41)  1)  -  THETAU+1) 

CALL  PEK(2»MAT(j4l|,TEM(j4l),VL(j4l)»J»l,DE»C) 

CALL  PfK(l,MAT(  J4  l )  ,  T  F.M  (J+ 1)  ,  VL  ( J-H  )  ,  J  ,  i  ,  CP,  C  > 

CAPCI  J+1)=2.*DMASS<  J+l )*<OE+OP*(( VI  U*l)-VLP(  J+l)  )/2.  ) ) 

H(J41)=  CAPCl J41 )4UTP*G( J) 

CAPK ( J 4 1  )  =  SIGIJ41)  +  DTP*(ELI J14ELMI J)-EL( J41)-EIM( J+ll)  4 
1  DTP+CAP J ( J ) 

999  FURMAT  I  I  4 , 8E 16. fl ) 

IF  IIC.GE.25)  PRINT  999 , J , S I G ! J4 1) , FG ( J4 1 ) , PR { J4 1) » THET A ( J4 1 ) , DE t 
1  DP.CAPCt J4 1 | ,CAPK{ J4l ) 

if t j.gt. jstarj  return 

RA  =  R  ( J4 1 ) *♦ ( 2* ( DEL  T  A- 1 ) ) 

SAG  =  RA*(  TEMAl  J4  n-TF.M<*(  J42)  )  -  KDM ( J4 1) *EL ( J4 1 ) 

A  =  RA*A.^TEM3(  J4?)4CU  J41J*DKDMP(  J41  ) 

8=R4*A.*TfM3(J4l)-EL(J4l)*PKDMMtJ4l > 

G(J41)=A*H(J41)/(KGM{J41 )*H( J+1)4DTP*B) 

CAPJ(j4l)=(Htj4l)*SAG4B*CAPK(j4l))/  J 

l  (X0M(j4l)*H(J4i)4DTP*B)  J 

IF  UC.CF.25)  PRINT  9S9,J,SAG,KDM( J41), A,DKDMP(J41 ),DKDMM( J41)  , 
l  H,GIJ41) ,CAPJ(J41) 

J  =  J  4  1 
GO  TO  10 
END 


W 


23.  RDI(C) 

RDI  Is  called  by  EXEC.  It  calculates  6T  and  6L  and  the  new 
temperature  and  luminosity.  RDI  also  determines  whether  T  and  L 
have  converged  or  not. 


UPFTC  i*l)  I  ME 

SUBROUTINE  RDI IC) 

C  COMMCN  CARDS  LABELED  /IKA2/  AND  /  I K  A  2  H  /  GROUPS  TU  BF  PLACFD  HERf 

INTEGER  DELTA,  REGNG ,  UNCGS,  L'NMK  S 
REAL  KM  I N ,  KMA  X ,  X  P ,  KM,  KOM 

C  SEE  TABLE  FOR  OTHER  SINGLY  LABFLEO  COMMON  CARDS  TO  PE  PLAC6C  HERF 


01  MENS  ION  CU) 

J  =  JST  AR+  1 

IF  (  I  C .  G  E  „  2  b  )  PRINT 

8CC0 

l 

TFMU-3) 

IF  <IC,f,l.2b)  PRINT 

dcco 

HCCC 

FORMAT  IbElfc.H) 

IF  UC.E0.2S)  PRINT 

7CC  3 

7C03 

FORMAT  (12SH01C.J, 

l 

L  , 

F, 

2 

XT) 

DTLM, 


CAPK, 


H, 


DL, 

XL, 


J= JST  V.  +  1 
F=  l  . 

I  S  1  =  1 
IS?=1 
IS  3=1 
I  S  A  =  l 

CTEM=CAPK( J+ll/HI J+l) 

TFM  J  +  l)rTFM(  J+D+DThm 
IF ( TEM( J+l ) . GE . C .  )  00  TO  bO 
TFM<  J+l  )  =TEMC  J+l  )-CH  M 
F=-TfcM(J+l)/|?.*OTFM) 

TFM(  J+l  )  =  n  M{  J+l  )+F*LTl  f 
r'0  Tt  M  SQ( J  +  1  )=TEM(J+l)*+2 

TFM3(  J+l)=TFM{  J+l  )  MIFSUJ+1) 

T  E  M  4  (  J  ♦  1 )  =  TEM$M  J+l )**? 

IF  {  2  1  .GT.  TFV(  j+l)  )  r,C  TO  140 
JST  AR=JbTAR+l 

IF{ JSTAR.Gr .JMAX)  JSTAR= JSTAK-1 
GO  Tf  14 e 

tO  IF  (  IC.LT.2S)  M  I  (j  Vi 
XL  =  TL/X2/i  LlJ+l ) 

X  T  =CTl  M/T!  M{  J+l  ) 

PRIM  7'  04,  IC,  J,CTLM,THM(  J+l  )  ,LL,EL(  J  +  l  )  ,F,CAPK(  J+  L )  ,H{  J+l  )  ,  XL  ,  XT 
7C04  FORMAT  ( 21 3,4E16.P ,bt 12.4) 
f>  i  J^J-1 


•302 


61  IF  IJ.NE.G)  GQ  TO  100 
IFIRMIN.LE.G. )  GO  TO  62 
0L«-Gtll*0TEN4CAPJm 
ELtl  laEL( 1)*F*DL 

62  IF  (IC.LE.5)  GO  TO  70 
IF  (IC.LE.28)  GO  TO  72 
GO  TO  9998 

70  IF  US3.NE.1)  GO  TO  65 

72  IF  USA.EQ.2)  GO  TO  65 

IRE  TRN=2 
RETURN 
65  IRETRN*! 

RETURN 

100  OE*-G(  J+n«DTEM4CAPJI 
ELI J41)»EL( J4l|4F*0L 
IFUS1.EQ.2)  GO  TO  120 
IF(AeS(0L).lE.ABS(X24EL(  J4im  GO  TO  120 
IF(ABSIEL(J4in.LE.1.0E-i5)  GO  TO  120 
IFIJ.GT.JSTAR-31  GO  TO  120 
IS1-2 
IS3»2 

120  0TER»(“0TP*0L4CAPKU.in/Hf  J4U 
TEMI J41I»TEM{ J41)4F*0TEM 
IFITEMJ  +  IJ.GE.O.)  GO  TO  130 
TEH<J41I«TEK< J-M>-F*OTEM 
F«-TEHI J4il/I2.*0TE«1 
TEMI J411«TER( J4l )4F*0TEN 

130  TEHSQ(JM)«TEM<  J+l)**2 

TEN3I J4D-TEHI  J4U*TEMS01  J4l) 

TEMA1 J4;)*TE«SQI J4 11**2 
IFIIS2.EQ.2)  GO  TO  60 

1*0  IFIAB$(0TEM).LE,A6SU3*TEN(  J-H)  H  GO  TO  60 

IF  ( IC.GT.10.AN0.ABS(DTEM).LE.ABSI4.*X3*TEM< J4l)))  GO  TO  60 
IF  I IC.GT • 15.AN6.ABS( DTEM).LE.ABS(20.*X3*TEHIJ41) ))  GO  TO  60 
IF  (  IC.GT. 20. ANB.ABSIDTEHJ.LE. ABSUOO. ♦X3*TEHIJ4in  )  GO  TO  60 
IF  <IC.GT.25.AND.ABS!DTEM».LE.AB$(l000.*X3*TEKU4in)  GO  TO  60 
I  S2  =  ? 

I  SA*2 
GO  TO  60 

9998  PRINT  7001 

7001  FORMAT  ( 2.0H0 TOO  MANY  I TFRAT I ONS  ) 

CALL  EXlt 
END 


~v 


t 


•  i 


i 

i 


1 
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24.  ROD(C) 

ROD  is  called  by  EXEC.  ROD  uses  the  new  temperature  and 
luminosity  to  calculate  the  new  opacity,  energy  and  pressure. 


MPF  TG  ROC  REE 

Sut'sTOT  INI  k(.LIC) 

C  COMMON  CAPOS  LALELlO  /  IKA?/  AND  /IKA2R/  GROUPS  TO  BE  PLACED  HERE 

I  NT  t  Gt-  R  f‘  F  L  T  A  »  REGNO,  UNCGS,  GNMKS 
»LAL  KM  I N ,  KMAX ,  KP,  KM,  KCM 

C  SEt  TABLE  ECE  OTHER  SINGLY  LABELED  COMMON  CARDS  TO  BE  PLACED  HERE 

DIMENSION  CU) 

J=C 

I  IK  J.CT.  JSTAR  )  RETURN 

TAM!J+n  =  UTEM4(  J+D  +  1GM4(  J+2M/2.  )**.2S 
IF(J.NI-.C)  GO  TC  10 
KM (  1  )  =  C. 

CKMM=0. 

GO  TO  lb 

1C  CALL  PFK(3,MAT{J+li,TAM{J+l),VL{J+l),J,0,KM(J+l),C5 
?C  CALL  P  tK ( 3  »  MAT { J+ 1 1 »  T  AM ( J+ 1 1 »  VL ( J+ 1 1 »  J , 1 »0KMM»C ) 

15  CALL  PEK(3,MAT(J+2),TAM(J+l),VL(J+2),J,0tXP(J+l),C) 

25  CALL  PFK13,MAT(  J  +  2)  ,TAM(.I  +  1)  ,VLlJ  +  2)»J,l  ,DKHP,C) 

KOMI  J4  1)  =  (CMA  SSI  J+l  )*KM( J+l  1+OMASS1 J+2  )*KP( J+l)  )*.5 
DK0MTM=D^ASSU+2)*0KMP  +  0MASSU+U*DKMM 
OKrwP( J+l )=.25*( T  EH ( J+21/TAMI J+l) ) ♦♦3*DKDMTM 
OK  D*K  J+l )  =  .25*( ThM{J+l)/TAM(J  +  l) )**3*DKDMTM 
J  =  JM 

CALL  PEK(?,MAT(J+1),TE.M(J+1),VL(J  +  1),J,0,EG(J+1),C) 

CALL  PEK ( 1 ,MAT( J+l) ,T6M( J+l) , VL 1 J+ 1) , J , 0 , PR  I J+ 1 ) , C ) 

GO  IP  1 
END 


4 
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25.  ROE (C) 

ROE  is  called  by  EXEC.  It  calculates  temperature,  energy  and 

■k  ^ 

pressure  for  those  zones  between  j*»j  and  j=»j. 


118FTC  ROE  REF 

SUBROUTINE  ROEIC) 

C  COMMON  CAROS  LABELED  /IKA2/  AND  / IKA28/  GRGUPS  TO  BE  PLACED  HERE 
INTFGER  DELTA,  REGNO,  UNCGS,  UNMKS 
REAL  KMIN,  KMAX «  KP,  KM,  KOM 

C  SEE  TABLE  FOR  OTHER  SINGLY  LABELEO  COMMON  CAROS  TO  BE  PLACED  HERE 

OIMFNS ION  Cil) 

IF( JHAT.EG. JMAX)  RETURN 
IFUSTAR  +  l.GT.JHAT)  GO  TO  60 
IF(  JST4R  +  1.FQ.JHAT)  GO  TO  80 
J=JSTA«+2 
2C  IQ=C 

3C  CALI  PEK(2,MAT(J+n,TEM(J+n,VLIJ+n,J,0,EG(J-H),C) 

CALL  PEK(?,MAT( J+ l ) , TEM ( J+ l ) , VL I J+ i) , J , 1 , CE ,C ) 

CALL  PFK ( 1 ,MAT( J+l ) ,TEM{ J+l ) ,VL( J+l ) , J,0,PR( J+l ) ,C) 

CALL  PEK(l,MAT(J+i),TEM(J+l).VL(J+l)»J*l»DP»C) 

SIG( J+l) =2.*DMA$S( J+I )*(EGM( J+1)-EGI J+l )♦{ (PR(J+1  )+PRM( J  +  l )  )/2. 

1  +  C( J+l)}*(VLM{ J+i J-VLC J+l) )  )-THFTA( J+l) 

CAPCI J+l  )  =  2. ♦DMA  SSI J+l)*(DE  +  DPM(VL(J+l)-VLM( J+l) )/2.  )  ) 

0TFH=SIG( J+i )/CAPC( J+l ) 

TEM(J+l)=TFM(J+i)+DTEM 
TFMSG( J+l  )  =  TEH  (  JU)**2 
TEM3IJ  +  1 )=TEMSG(J+1  )  *  T  FM ( J  +  1 ) 

TEM4 ( J* I )  =  T  t MSG ( J  + 1 )**2 
IFITEMU+D.LT.C.)  GO  TO  <399 

IF  ( IC.GT.2C.AND.ABSI0TEM).LE.AbSl4.C00*XlATEMI J+l) ) )  GO  TO  40 
IF  (I0.Gr.22.ANC.ABS(DTFN).LE.ABS(?C.00*Xl*TEM( J  +  l)  ))  GO  TO  40 
IF  <  IG'.GI.24.A\D.ABS{CTFM).LE.APS(  100.0*X1*T£M(  J+l)  ))  GO  TO  40 
IF(AP$(r)TFM).Lt.A8Sm*TEM(  J  +  l)  })  GO  TO  40 
10=  I  G+  1 

IF  (Io.LE.IU  GC  TO  3G 
IF  (IC.fcO.in  WRITE  (6,2000) 

2CCC  FORMAT  {  1 C4H(  J »  CTFM,  TEM1J+1),  FGU+l), 

1  OF,  P R  ( J  + 1 ’)  ,  DP,  IQ) 

WRI1E  ( 6 , 1 CCO )  J,DTFM,TFM( J+l ) ,tG( J+l) ,DE,PR( J+l ) ,0P, IQ 
ICCC  FORMAT  ( 1 4 , 1P6E 1 6. 8 , 1 4 ) 

IF  ( IO.LT.l b)  GC  TC  30 
IF  ( 10. GT. 16)  FT  Tf  5C 
TEM( J+l)=TFM( J+l ) -D  T  t  M/2 . 

T»;MSC(  J+l  )  =  TEM(  J+l )  **2 

rtr'M  M  J+l  )  =  TEMSC(  J+l  )*TFM(  J+I) 

TtM4( J+l )=TtMSQ( J+l ) **2 
GO  U  1'j 
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«C  J=J+! 

IMJ.LE.JHAT)  GO  TO  20 

If  (Z2.GKTFM(J*l)  )  RETURN 
JHA  T  =  JHAT ♦  1 
RETURN 

SC  ! F  1IQ.LE.26)  GO  TO  TO 

CALL  EXIT 

60  IF1Z2.LE.TERI JSTAR+2)  )  GO  TO  70 
JHAT  * JST  AR+  1 
RETURN 

70  JHAT=JSTAR*2 

RETURN 

80  IF  (Z2.GT.T6Hl  JSTAR  +  2)  )  RF  TURN 
JH AT  =  JHA  T+  L 
RETURN 

999  PRINT  70C0 

7C0C  FORMAT121HOTEHP.  hENT  NEG.  ROE.) 
CALL  PROUT  (C) 

CALL  EXIT 
END 


26.  TSRIMP(C) 

TSRIMP  is  called  by  EXEC.  It  controls  the  size  of  At  for 
implicit  radiation  problems. 


IIBFTC  TSRIMP  REF 

SUBROUTINE  TSRIMP(C) 

C  COMMON  CARDS  LABELED  /IKA2/  AND  / IKA2B/  GROUPS  TO  BF:  PLACED  H 
INTEGER  DELTA,  REGNO,  UNCGS,  UNMKS 
REAL  KMIN,  KMAX ,  KP,  KM,  KDM 

C  SEE  TABLE  FOR  OTHER  SINGLY  LABELEO  COMMON  CAROS  TO  BE  PLACED  H 

OIMENSION  Cfl) 

IF< ICK.EQ.O.AND.IH.EQ.O.AND.IP.EQ.O)  GO  TO  5 
DTM2  *  DTP 
DTMI  *  DT 
OTP  =DTPS 
OT  *  OTS 
5  IR*l 
J*1 

JGAMMA*! 

IF (Zl.NE.O.  )  GO  TO  10 
XI 0=DTP*2 • 

GO  TO  150 
10  X10=DTP*2« 

50  CALL  PEK(2,MATIJ+1),TAM(J+1),VL(J-H),J,1,DE,C) 

X10TRM«C5( IR)*DMESS(J+1)*KDM( J41J *DE/< 8. *R(J*1) ♦*(2*( DELTA-1) 
1  *Y  AN ( J+ 1 ) **3) 

X10TRM«ABS(X10TRM) 

IF(XIOTRM.GE.XIO)  GO  TO  100 

JGAHMAxj 

X10*X10TRM 

100  IF t J.GE.JSTAR)  GO  TO  150 
J*J  +  l 

IF( J.LE. JREG(IR) )G0  TO  50 
IR*  IR+  1 
GO  TO  50 

150  J*1 

REGN0»1 

X20*0. 

X30*0. 

160  XX*R<  J  +  il  **(2*(DELTA-l>  )»PR ( J+l >*C3 (REGNO )/ (VL ( J*1)*DMASS(  J41) 
IF  (XX.LE.X20)  GO  TO  200 
X20*XX 
JOMEGA* J 

200  IF  1VLM(J  +  1)-VL< J+l) .LE.O.  )  GO  TO  220 
XX* ( VLM ( J+l )-VL ( J+l) )*C4 (REGNO) /VL( J+l) 

IF  (XX.GT.X30)  GO  TO  2*0 

220  IF  (J.GE.JHAT)  GO  TO  260 
J*J+1 

IF  (J.LE.J REG (REGNO)  )  GO  TO  160 

REGN0*REGN0+1 

GO  TO  160 
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2A0  X30=XX 
JL  AM  =  J 
GO  TO  22C 
26C  XAO=OTP 
5  L  1  =  C  . 

270  IF(XIQ.GE.XAP)  GO  TO  28C 
XA0=8 . *XAO/S . 

SL  1=  i. 

GO  Tf  27C 

280  IF  {X20*XAC*=»2«.LT.K  )  GO  TO  300 
XAO  =  8.*XA0/S). 

SL 1=  l  . 

GO  TO  280 

300  IF  (X30*XAC/0TP.LT.l.)  GO  TO  320 
XA0=8.*XAC/9. 

SL 1  =  1 . 

GC  TO  3C0 

32C  IF  (SLl.Nfc.O.i  GO  TO  3 AC 
XA0  =  9 . *XA  0/8 « 

SL  I  =  1 . 

GO  TO  ?7f 

3AC  0FEGA=X?C*XAC**2 
AM8DA=X30*XAC/CTP 
GAHM A=  XAC/ X  1 0 

IF  (  ICK.NF.O.AM). IH.Nfc.C. ANP. I P.NE.CI  GO  T 0  1000 
CTMl^OT 
D1M2=0TP 
ICCO  C TP  =  XAQ 

CT=  . 5* ( OTP  +  DTP?  ) 

Pfc  TUPN 
END 


27.  POR 

POR  is  called  by  EXEC.  It  prints  one  line  of  output  at  the  end 

of  each  cycle. 

SIBFTC  POR  REF 

SUBROUTINE  POR 

C  COMMON  CARDS  LABELED  /IKA2/  AND  / IKA2B/  GROUPS  TO  BE  PLACED  HERE 
WRITE (6, 7000 1  N , TM, DTM2 , AMBDA , JL AM , OMEGA , JOMEGA , GAMMA , JGAMMA , 
l  JO,  JSTAR,  JHAT,  IC 

7000  FORMAT  (  1 6 , 2 E 1 6. 6 ,  E  1  A  .  A  ,  I  6  ,  E  l  A  .  A ,  l  6 ,  E  l A  .  A  ,  5  1 6  ) 

RETURN 

END 


1 
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28.  PPR(C) 

PPR  is  called  by  EXEC.  It  determines  if  a  print  out,  energy 
edit  or  history  edit  is  to  be  taken  at  the  time,  and  if  so  calls 
the  appropriate  routine. 


tfPFTC  PPR  P  EF 

SUBROUTINE  PPP(C) 

C  COMMON  CAROS  LABELED  /IKA2/  AND  / I K  A?B /  GROUPS  TO  BC  PLACEC  HERE 

INTEGER  DELTA,  RiJNC,  IJNCGS,  GNMKS 
REAL  KMIN,  KMA X  ,  KO,  KM,  KDM 

C  SEE  TABLE  FOR  OTHER  SINGLY  LAPELLO  COMMON  CARDS  TO  BE  PLACED  HERE 

Cl  HE  NS  I  ON  C (  l  ) 

IR  =  1 

5  IF  I  JR  EG (  I R  +  l )  •  FU.O  .  AND.  (  IRAC.CC.2.UR.IRAC.FQ.5)  )  GO  TO  10 
!SUB  =  JREG( IR  HI 

CKY(  IRHLKYIIRHIFLMl  l  SUB  )  *OTM  H.  25*  I  THSUM  I  IRHTHSMMI  IR))) 

1  ♦3.CG3F-3 

IR  ^  IR  + 1 

I  E I  M.GT.NHEG)  GO  TC  1 44 
GO  TG  5 

1C  THE  T  A=  1  . 1 34L- 3* ( ( R ( JM AX i +  R ( JMA X- 1 ) ) /2 . ) * ♦ ( CELT  A- 1 )*TEH(JMAX)**4* 
1  OTP  1 

CKY(  I R  )  =  C K Y I  IR)  +THF.TA*1  .SC1SF-3 

144  IF(NOCKll)  .f.0.0)  GO  TC  3CC 
145  IF  (NENCK.GT.N)  GO  TG  184 
CALI  ECHECK 

ISC  1=1 

l AG  IF  (N.LT.NCKCI  1)  )  GO  TO  180 
1=2 

162  IF  (N.LT.NCKCI I). AND. N.GE.NCKCI 1-1 ))  GO  TC  180 
IF  II.GF.6)  GO  TO  180 
1  =  1*1 
GO  TC  162 

18C  NENCK=NENCK+NOCK (  I  ) 

1 84  IFINCH(l).EC.O)  GO  TO  AGO 
185  IF  (NHIST.GT.N)  GO  TO  94 
CALL  HIST 

19C  1=1 

2C0  IF  (N.LT.NHCI1)  )  GO  TO  22 0 
1  =  2 

2C2  IF  (N.LT.NHCm.ANC.N.GF.NHCI  I-D)  GC  TC  220 
IF  ( I . G E . 6  )  GO  TO  220 
1  =  1  +  1 
GG  TO  202 

??C  NhIST=NHIST+NDH( I ) 

94  IF ( NOP  I i )  .  FG.C  )  GO  TO  500 

95  IF  (NFRT.GT.N)  GO  TO  225 
CALL  PRCUT(C) 

ICC  1=1 
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120  IF  IN.LT.NPCm)  GO  TO  140 
1-2 

122  IF  (N.LT.NPCm.ANO.N.GE.NPCU-m  GO  TO  140 
IF  (I.GE.6)  GO  TO  140 
1»I4| 

GO  TO  122 

140  NPRT-NPRT+N0P1 I ) 

225  RETURN 

30C  IFUCK.NE.O)  GO  TO  350 

IF  iTW*DTP*(l.*i,E-7>.LT.THCKt4DTCKUCK2n  GO  TO  184 

ICK-l 

DTS-DT 

0TP5*0TP 

DTP«TNCKL+DTCK( ICX21-TN 
DT«.5P<0TP*DTN2) 

GO  TO  184 
350  CALL  ECHECK 
ICK-Q 

TNCKL-THCKL4DTCKIICK2) 

IFITNCKL.LT. CTCK< ICK2) )G0  TO  300 

ICK2-ICK2+1 

GO  TO  300 

400  IF (  IH.NE  .0  )  GO  TO  450 

IF(TN*DTP*<  l.*l.E-71.LT.TNHL4DTHUH2>)G0  TO  94 
IH-1 

IFUCK.NE.O)  GO  TO  410 

OTS-DT 

OTPS-OTP 

4  1C  DTP-TNHL*DTH( IH21-TN 
DT*.5M0TP^DTN2) 

GO  TO  94 
450  CALL  HIST 
IH-C 

THHL«TNHL*DTH( IH2) 

IF1TNHL.LT. CTHIIH2))  GO  TO  400 
IH2X IH2+ i 
GO  TO  400 

500  I F ( IP.NE.O)  GO  TO  550 

IFI  TN+DTPM  1.M.E-7).LT.TNPL+D1PRUP2)  >  GO  TO  225 
IP-l 

IFI ICK.NE.O.CR. IH.NE.O)  GO  TO  510 

OTS-OT 

DTPS-OTP 

510  0TP-TNPL4DTPR1IP21-TN 
DT-.5*(DTP*DTN2) 

GO  TO  225 
550  CALL  PR0UT1C 1 
IP-0 

TNPL-TNPL^OTPRl  IP2) 

IFI TMPL.LT.CTPl IP2)  )  GO  TO  500 
IP2=IP2*l 
GO  TO  500 
END 
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29 .  HIST 

HIST  Is  called  by  PPR.  It  writes  a  history  edit  on  FORTRAN 
logical  tape  12. 


AISFTC  HIST  REF 

SUBROUTINE  HIST 

C  COMMON  CAROS  LABELED  /IKA2/  AND  /IKA2S/  GRGUP5  TO  BE  PLACED  H 
INTEGER  DELTA,  RESHO,  UNCOS,  UNHXS 
REAL  KHIN,  KMA X,  KP«  KM,  KDM 

C  SEE  TABLE  FOR  OTHER  SINGLY  LABELED  COMMON  CAROS  TO  BE  PLACED  H 
COMMON  /EOSCON/  KEOS,  I0S0SI6),  IGRQESU6),  IBEGTO,6),  OUH, 

1  I8EGV<3,6),  !BE6C( 3,6 ) 

WRITE  112)  NREG, JMAX,MRSRCE,NZ$RCE,NEMIN,MEMAXeWKH!N,MKMAX9MPK 

1  WPMAX,NYM!N,MTMAX,NUMIN,NUMAX,OT, DTP, DELTA, RE6W0,WtNF» JZ,ORC, 

2  Z1,Z2,X1,X2,X3,X*,X5,X6, JO, JOM, JOS, JL» JSTAR, JHAT, UNCGStUNMRS, 

3  TK,RHIN,RHAX 
JMAX2nJMAX+2 

WRITE  112)  (R(!),U(I),TEM(l),TAM(l  ) ,YL( I) ,VL« (1) ,PR ( I > ,PRM II) , 

1  EG(I),EGK(I),KP(I),  KM(  I ) , DMASS ( ! ) , OWE SS ( I ) *  TEMSQl I ) »TEM3( I ) 

2  TEMA( I ) »KQM (I ) , ELI! ) »  ELM( I ) »MAT { 1 ) ,Q( I ) , IB1, JMAX2 ) 

WRITE  1 12  f  (RRGt!),JREGU),Cl{I),C2(I),C3U),C*U),C*(l),E0U 
1  CKYI I ) ,  SUM2 (I),lal,l5),ME0S, I DECS 
WRITE  (12)  ( NDH( I ) ,NHC ( I ) » NDP  ( t ) ,NPC ( I ) *NDCK ( I),NCKC(1),EMXM(I 

1  EMRxm.KNINm  .KNAXf  I  )«PMINU),PMAXU1«TMIM(I  )*TMAX<nvUMIN< 

2  UMAX  ( I ) ,TEMIN( I )  ,TEMAX(I )  ,TKMIN(  I  )  ,  TKNAX  ( I )  ,  YPMINU  )  ,TPMAXU  ) 

3  TTMIHI I l , IT MAXI I),TUM!N(I) ,TUMAX( I),OTH(l),CTH(!),OTPR(I),CTP 

4  DTCK(I),CTCK(I),I»I,6) 

WRITE  (12)  (<ERS(l,K),ES(!,K),TMRS(I,K),YH$U,K),i«l,6),RS(K), 
1  JS(K),NRS(K),NZS(K),K>l,lO) 

J-123456 
WRITE  (12)  J 
BACKSPACE  12 
PRINT  7000,  N 

7000  FORMAT (22H0HIST0RY  EDIT  AT  CYCLE  16, IH.) 

RETURN 

END 


30 ,  ECHECK 

ECHECK  is  called  by  PPR.  It  calculates  the  total  energy  in  the 
problem  and  prints. 


O  W> 
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4I0FTC  ECHECX  REF 

8*St80UTI«£  ECKECK 

C0»«0*  CAROS  LABELED  /IKA2/  AND  /IKA28/  CROUPS  TO  BE  PLACED  HERE 
SEE  TABLE  FOR  OTHER  S1NCLY  LABELED  C0H80N  CAROS  TO  BE  PLACED  HERE 
INTEGER  DELTA,  REGNO,  UHCGS,  UMHKS 
REAL  KMINt  KK'AX  ,  XP,  KPa  KDB 
DIMENSION  CKSU5),  CKKU55,  CXHI13) 

00  10  I«1»NREG 
CKEin-O* 

CKM  Ii«Q. 
io  ckwu)»o. 

!R“  l 

Ja  i 

15  SUHl-O. 

SUH3-0. 

20  SUHl«SUHl*.5*QfcA$SI  EG(  .JMifEGNf  J4i)i 

SUK3»SUH3*OHASS< J4l)«<U< J)«*24U( J«i)*«2S 
J»J41 

IF* J.LE.JREGC IR) )  GO  TO  20 
IF ( DELTA . EQ . 3 i  CKC«3.003E-3 
IFf0ELTA.EQ.2i  CKC-1 . 5015E-3 
IFfOELTA.EQ.l)  CKC«2.389£-A 
CKE (  IR  )* ( SUHI-SUM2  I  I R  )  i *CKC 
CKKf !R )«SUM3*CKC/A. 

CKWf  IRi-CKEf  IRJ+CKXf  IP.) 

35  IR-IR+l 

IFUR.LE.NREG)  GO  TO  15 
IR«l 

PRINT  7000 

7000  FORMAT! 1H0,8X, 1HE, 15X,1HK, 15X , 1HW, 15X , 1HY , 1 3X , 5HW- Y*Y , 1 3X , AH JREG ) 
AO  CXY0«CKY( IR-1) 

IF  f IR.EQ. 1 )  CKYO-O. 

NTERM-CKWIIR)-CKY04CKYUR) 

PRINT  7001, CKE  f  I R  ) ,  CKK  U  R  > ,  CKW IIR  )  ,CKY  U  R )  ,  WT  ERW,  JREG  UR  i 

7001  FORMAT ( IH  5E 1 6.6 , 110 , E22.6 ,E 16. 6 ) 

IR-IR41 

I F ( IR.LE.NREG)  GO  TO  AO 
CKES-O. 

CKK  S®0 • 

CXWS-O. 

00  50  IR«l,NREG 
CKES«CKES4CKEf IR) 

CKKS-CKKS4CKKUR) 

5C  CKNS-CKWS4CKM I R  J 

PRINT  7001,  CKE S ,CKK  S , CKWS 

RETURN 

FNO 


$ 


ECHECK 

|5T6RT  j 

1  *■ 

-  <vo 

v 

1 
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*  L  _ ^ 
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1 

ckk  (h  *  o 
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31 .  PROUT(C) 

PROUT  is  called  by  PPR.  It  is  a  MAP  code  which  prints  the 
variables  specified  by  the  output  description  deck.  It  calls  upon 
those  subroutines  C0UT1,  C0UT2,  . ..,  C0UT25  corresponding  to  the 
number  of  the  ,-ari>>Kle  desired  to  compute  if  necessary  and  to  scale 
the  variable. 

In  FORTRAN  version  the  user  must  control  his  own  output  and 
therefore  must  write  his  own  PROUT. 


(T»at  Case  1  only) 

ilBFTC  PROUT  REF 

SUBROUTINE  PROUT(C) 

COMMON  CARO  LABELED  /IKA2/  GROUP  TO  BE  PLACEO  HERE 
SEE  TABLE  FOR  OTHER  SINGLY  LA8ELED  COMMON  CARDS  TO  BE  PLACED  HERE 
DIMENSION  Cl  I) 

DIMENSION  RHI202) 

JMAX2  *  JMAX+2 
DO  500  J= 1 , JMAX2 
RH(J)  =  l.ZVL(J) 

500  TEM(J)  =  , 139*EG( J ) 

WRITE(6*101) 

101  FORMAT  (3H0  J , 6X , 6HRAD IUS, 9X, 8HVEL0C I TY ,8 X, 7HDENSI TY , 9X ,4HTEMP , 

1  10X,6HINTENG,8X,8HPRESSURE,8X,6HARTVIS,10X,4HMASS  ) 

K=0 

WRITE  (6,102)  K,R( 1) »U( l),RH(l),TEM(l),EG(l),PR(l) ,Q(l),DMASSi 1) 

1  =  1 
J=2 

20  WRITE  (6, 103)  HAT< J) 

103  FORMAT  ( l 3H0MA TER  I AL  14) 

10  K= J— 1 

WRITE  (6,102)  K, R ( J ) ,U(J) »RH( J ) ,TEM(J) , EG ( J ) ,PR(J) ,Q ( J ) , DMASS ( J ) 

102  FORMAT  ( 1 3, 1PE 15. 5, 1P7E 15. 3 ) 

J=J*1 

IF  (J.GT.JHAT+3)  GO  TO  30 
IF  (J.LE.JREG( I)+l)  GO  TO  10 
1  =  1  +  1 

IF  ( I.LE.NREG)  GO  TO  20 
30  WRITE  (6, 104) 

C 

104  FORMAT  (6H0  N,10X,4HTIM6  ,12X,2HDT  , l 1 X ,6HLAMBDA,5X ,4HJ L AM  ,6X, 
C 

1  5HOMEGA  , 4X , 6HJ OMEGA , 6X, 5HG AMMA ,4X, 4HJGAM  ,3X ,2HJ0,2X,5HJSTAR,2X, 
C 

2  4HJHAT  , 3X, 2HIC  ) 

C 

RETURN 

END 
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32.  C0UT1(J,IF,C) ,  C0UT2(J,IF,C) ,  . . . ,  COUT25 ( J , IF ,C)  (RAND  version 
only) 

These  function  type  subroutines  are  called  b/  PROUT.  They 
correspond  to  the  variables  or  functions  1,  2,  . ..,  25  in  the  output 
description  deck.  They  compute,  if  necessary,  and  scale  the  output 
varL  le  desired. 

33 .  CZR(C) 

CZR  is  called  by  EXEC,  It  accomplishes  the  combining  and  adding 
of  zones .  If  the  combining  is  of  the  type  in  which  zones  are  in¬ 
serted  at  the  righthand  side  of  the  problem,  (indicated  by  JL  <  0) 
maintaining  an  essentially  constant  Rjmax»  CZR  calls  two  subroutines 
RBOUND  and  PBOUND  to  determine  the  density  and  pressure  of  the  zone 
which  is  to  be  inserted. 


tlBFTC  CZR  REF 

SUBROUTINE  CZR(C) 

C  COMMON  CAROS  LABELED  /IKA2/  AND  / I K A2B/  GROUPS  TO  BE  PLACED  HI 
INTEGER  DELTA,  REGNO,  UNCGS,  UNMKS 
REAL  KMIN,  XMAX ,  KP,  KM,  KDM 

C  SEE  TABLE  FOR  OTHER  SINGLY  LABELED  COMMON  CARDS  TO  BE  PLACED  HI 

COMMON  /fcOSCOM/  M£0S,  IDBGS(6),  I0R0ERI6),  IBEGT(3,6),  DUM, 

1  I BEGV (3,6),  I BEGC (3,6) 
l  IFIJL.FQ.O)  RETURN 
DIMENSION  C(  1) 

IF ( JL.GT.C)  GO  TO  2 
CALL  RBOUND ( TM,RH0) 

IF!  (RMAX-RI  JMAX+l)  l.LT.IDMASSI  JMAX  +  D/RHO)  )  GO  TO  4 
CALL  PROUND I TH » PR ( JMAX+2 ) ) 

MAT  l  JMAX  +  2 )=MAT I JMAX+1) 

DM AS  SI JMAX+?)=DMASS( JMAX+1 ) 

DMESSI JMAX+ 1)=DMESS ( JMAX) 

DMESSI JMAX+2 )=DME SSI JMAX+l) 

6  VLI JMAX+2)=1./RH0 

R< JMAX+2 )=R I JMAX+  1 ) +DMASS I JMAX+2 ) /RHO 

TALL  GEIVAR(I,?,PR( JMAX+2 I  -  VI  (JMAX+2 ), JMAX  +  1 , TFM{ JMAX  +  2 ), C ) 

CALL  PFK I 2,M AT  I JMAX+2) ,TFM( JMAX  +  2) , VLI JMAX  +  2)  , JMAX+1, 0,EG(JMAX+ 
1C) 

GO  TO  9 

7  CALL  PET  I  MAT  I JMAX  +  2) ,TEM ( JMAX  +  2 ), VLI JMAX  +  2 )« EG  I JMAX+2 ) , JMAX+1, 
9  JHAT  =  JHAT  + 1 

JMAX=JMAX+ 1 

JR  EG  I  NR  EG ) = JRfcG I NREG )  +  1 
IFIJHAT.GT.  IABjI  JL)-l  )  GiJ  TO  3 
GO  TO  l 


i 


A  IF  ( R  4 JNAX4 1 )  .GT.  ORC)  RETURN 
CALL  PBOUNOfTN.PRf JNAX42) ) 

NATf JHAX42)*NATUHAX4i) 

DHASS(JHAX42)»f  RNAX-R UNAX4 1 )  J*RHO 
0HE$SUMAX4l)«(DHASSf  JHAX4  1  )4DHAS3f  JNAX42)  )*.5 
OHESSf  JNAX4  2)«DMASSUNAX42) 

GO  TO  6 

2  IF( JHAT.LE. JL)  RETURN 

3  IR«1 

5  IFUO.GT. JON-2)  GO  TO  20 

lFfRUQ43)-Rf  J04ll.LE.X54R!  JHAT4l))G0  TO  10 
8  J0*J041 

GO  TO  5 

10  IFfJ04l.LT. JR EG IIR))  GO  TO  50 
IF4  J04UGT.JREGUR) )  GO  TO  15 
IR= IR4 1 
GO  TO  a 
15  IR-IR41 
GO  TO  10 
20  J0*J0S 
IR«1 

IFUO.GT. JON-2)  GO  TO  999 

22  IFfRIJ043)-RU04l).LE.X5*RUHAT4l))  GO  TO  25 

23  J0»J041 
GO  TO  22 

25  IF(J041.LT.JREG(IR) )  GO  TO  50 
IFIJ041.GT.JREGIIR) )  GO  TO  28 
IR-IR41 
GO  TO  23 
28  IR* IR4 1 
GO  TO  25 
50  J*J0 

A-0NASSU41)  4  2.»0HESSf  J42) 

B«2.*0NESS« J42)  4  ONASSf  J44 ) 

CC«2.*fU(  J41)*0NESSU41)  4  Uf  J42I*DNESSCJ42)  4  U( J43)*DNESS1  J43I  ) 
0*2.*(U(J4i )**2*0NESS IJ4 1 )  4  U(J42)*42*0NESS( J42)  4 
1  Uf  J43  )’>*2*DNESS  I J43 ) ) 

DET*  f  2.*B*CC  )  4*2-4. *<  A4B )  <*B*(  CC**2-A*0) 

IFf DET.GT.O. )  GO  TO  53 
lFfDET.GT.f-l.E-81)  GO  TO  52 
J2«J43 

PRINT  70C1,A,6,CC,D,IDNASSI Jl)  ,  DNESSfJl) *U( Jl ) «J1*J«J2) 

7001  FORNATf 17H0CZR  SQRT  IS  NEG./f 8E 16„ 8 ) ) 

CALL  EXIT 

52  DET-l.E-16 

53  Uf J42)«f 2.*B*CC4  SQRT <OET)  )/  «2.*tA4B)*B) 

UfJ4l)«fCC-B*Uf J42) )/A 

EGfJ042)-fEG( J043)*0NASSf J043)  4  EG t J042 )*DNASS U042 )  )  / 

1  f 2.*0NESSf J042) ) 

TENU042)«(TENf  J043)*0HASSf  J043)  4  TENU042)4DMAS$4  J0*2) )/ 


» 


\ 


i 
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l  ( 2 . *DMESS I JO+2 ) ) 

DM ASS  I J04?)«2.*DMESS< J0*2) 

IF  I JG«  EG  *  0 )  GO  TO  55 

DMESS(J0+l)x.5*DHASSIJ04l)  ♦  DMESSIJO+2) 

55  DM6SS(JO+2)*» 5*0MASS ( JO+4 )  ♦  DKESSIJ042) 

IF ( GELTA.LE .2 )  GO  TO  60 

VL(  J0+2)«IR<  J0+3I-RI  JO+m*(RUO+3)**2*R(  J0+3)*R(  JO+1)  ♦ 

1  R(J0+1)**2)/0MASSI J042J/3. 

GO  TO  70 

60  IF (CELTA.LE. 1 )  GO  TO  65 

VU  J042)*(RI  J0*3)-RC  JO+1)  )*<R<  J0*3)4CU  JO+m/DMASSt  JO+21/2. 

GO  TO  70 

65  VLI J042)X(R( J0+3J-RI JO+l) )/OMASS< JO*?) 

70  IF<U(J0*2).LT.UIJ0*1>)  GO  TO  75 

Q( JO+2 )*0» 

GO  TO  80 

75  G< JO+2 J*Cl( IR)*IUI JO+2)-U( JO+l ») **2/ I2.*VL < J0*2 ) ) 

80  CALL  PET<MAT(J0*2),TEMt J0*2) fVLI J0*2) ,PRI JG+2) ,EG( J0*2),  JO*ltC 
TEMSQ(J0*2)XTEM(J0*2)4*2 
TEM3(J0*2)*TEMI J042)*TEMSQ(  JC*2> 

TEHMJ042)*TEMSQf  J0+2}**2 
Jl* JO+2 

00  100  Jx  J  l  *  JMAX 
MAT ( J  )*MAT ( J  +  l ) 

100  R(J)«RIJ+1) 

Jl*J0+3 

DO  110  J*  J  1 » JMA X 
01 JI«UIJ+1) 

DMESSI J)=OMESS< J*l> 

ELI J)*FL< J+l) 

VLI J)*VLI J+l) 

VLMIJ)  *  VLMIJ+l) 

QUl-CUMI 
OMASSt J)»DMASSI J+l) 

EG  I J ) »EG I J+  1 ) 

EGMIJ)  *  EGMIJ41) 

PR  C  J  ) -PR  I  J-A 1 ) 

PRMIJ1  *  PRMIJ*1) 

TEMI  J)xTEM<  J-H) 

TEHSQI J)«TEMSG( J+l) 

TEM3I Jl*TEM3IJ4l) 

110  TEM4I J)XTEM4{ J+i) 

IF  (NREG.EQ.  1)  GO  TO  115 
IR*  1 

111  IF  I JREG1 IR) .LT. JO)  GO  TO  113 
JREGI  IR)«JREG< IR)-1 

113  IR«IR4l 

IF  IIR.LT.NREG)  GO  TO  111 
115  JXJC 

IF! IRAD.EO.  1 )  GO  TO  124 
120  IFIJO.FQ.O)  GO  TO  122 


V 
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121  TAH  <  J+1)*I(  TEM4( J+l)+TEM4(  J+2)  )/2.)**.25 

CALL  PEK(3,MAT(  J+l)  ,TAM|  J+l)  ,VUJ+1!  .JtO.KMl  J+l)tC) 

CALL  PEK(3»MAT( J+2) ,TAM( J+l) ,VLIJ+2),JtO,KP(J+l),C) 
KDM(J+i)=.5*DMASS(J+l)*KN(J+l)  +  . 5*DMAS S ( J+2 >*KP ( J+ 1 ) 

EL ( J  +  l  )  =  R(J+1)*+(2*(DELTA-1))*(TEM4(J+1 )-TEM4 ( J+2 )) /KOMI J+l ) 

122  J*J  +  1 

IFIJ.LF.JO+2)  GO  TO  121 
124  IF ( JL.GT.O  )  GO  TO  123 
JHAT* JHAT- 1 
JO*JO+l 
JSTAR*JSTAR-1 
JMAX* JMAX- l 
GO  TO  1 

123  IFIORC.GE.O. )  GO  TO  130 

R< JMAX+1 )*R( JMAX)+ABS(ORC)*R( JMAX) 

GO  TO  140 

130  R( JMAX+1 )*R( JMAXI+DRC 
140  MAT« JMAX+1 )*MAT( JMAX) 

CELT*DELT  A 

0*R( JMAX+1 )-RI JMAX) 

IFI DELTA. LE.2JGO  TO  150 

C«D*(R(  JMAX+U**2+R(  JMAX+1  )*R(  JMAX  )  +  R  I  JMAX)  **2) 

GO  TO  156 

150  IF  I0ELTA.LE.1)  GO  TO  156 
0*D* IR I JMAX+1 )+R I JMAX)  ) 

156  IF  (EO(IR).NE.O.)  GO  TO  160 
CALL  RBOUND«TM,RHO) 

VLIJMAX+D*  1,/RHO 

CALL  PET  (MAT  (JMAX+1)  ,TEM<  JMAX+1  )fVL(  JMAX+1  ),PR  I  JMAX+1  ),EGCJMAX  + 1) 
1  JMAX ♦ C  ) 

160  OMASS( JMAX+l)=D/06LT/VL( JMAX+l) 

IF  ( 60 ( IRI.GT.O. )  GO  TO  162 
EZ*EG( JMAX+1) 

EGM ( JMAX+1 )  =  EG( JMAX+1 ) 

PRM (JMAX+1 )  =  PR ( JMAX+  1 ) 

VLH { JMAX+ l )  *  VL ( JMAX+ 1 ) 

GO  TO  164 
162  EZ*E0 ( IR ) 

164  SUM2(NREG)»S0M2(NREG)+EZ*0MASS( JMAX+1) 

DMESS( JMAX )*(OMASS( JMAX )+OMASS( JMAX+1 ))/2. 

IFI JO+l.LT.JSTAR)  GO  TO  170 
IFI JO+l.GT. JSTAR )  GO  TO  180 
IF(TEM(J0+2) .LT.Z1)  GO  TO  170 
GO  TO  180 
17C  JSTAR*JSTAR-1 
180  JHAT*JHAT-i 
J0=JC+1 
GO  TO  2 

999  PRINT  7000 

7000  FORMAT ( 26H0N0  MORE  ZONES  TO  COMBINE.  ) 

CALL  EXIT 
END 


1 


CZR  -  2  A  2. 


A  * 

B  -  AMj+s/2, 

CC=  WUjAMj  +  Uj^Mj,,  +Uj4ZAMj*4 
D  =  Z'iUjAMj  ■* ufrt  AMj+1  +U)4l  AWi+a) 

SOLVE  (A+E>)&U]+1- ZbCCUj^CG2-  AO  =0  FOR  0^, 

(USE  +  SI6M  m  QUADRATIC  FORMULA*  Uj  = 

fcc-6Ujtl)/A)  /  . 

(&*£»*.*  AMJO*aa«-  t?;:,/l^AMJo+1/t.V(zAMJo,J) 

t;0v./&  s  (TJo*'vt  4amJo+3/4+ 

^^Toh/2.  "  ^-AMj0+.l 

AMJo'i/2  AMJo_1/2<+ aMJo>1  (OMIT  IF  Jo  =o) 

AMjb+i  =  */2  AMJ o  +  s/z,^  ^j0  +  i 


-[(R^s-(R5r')8]4-^Jo,  ,/A 


o^1  »o 

^  Jo  *-1/2. 


^•^iR^u3ovru70)l4-v^l/0 


[ -rf**-'  /  tr\*l  FROM 

V'fe*L?  PET\ 


4 


(t*4 )'(T,ro*(T^4 


FOR.  j=JO  +  2,  Jo  ♦•'3,.  ,  ,,jMAK 
MATj-MATj*,;  Rn/‘«  «K', 

FOR  j- JO  *3,  Jo+  4,  ....j  j  MAX 
uj-l  =  uj  '»  4Mj_,  s  LJ-»  r  Lj 

Yi-i/is  Vj  +  i/L  >  Qi-i lz  -i/z.  =  CMj  vlyt 

^•j-  l/t  =  ^"jt  >/t  ’>  *"j-  l/l  *  4-»/i  ’»  Ti  +  1/2*  i 

fTJo/2')2»(TJ  +  »/2'>li^-'/i)^('rJ.^5*(T5-'/0+s(Tj..A')4 


j-  JO 


U»1 


Ifc*U+J 
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34.  PET  (MAT  ,T  ,V  ,P  ,E ,  J  #C) 

PET  is  introduced  to  make  possible  the  uae  of  analytic  equations 
of  state  that  are  not  functions  of  T  and  V,  since  in  non-radiative 
problems  it  is  often  more  convenient  to  use  P(E,V)  and  ignore  T. 
Normally  GETVAR  is  called  to  obtain  T  from  E  and  V  through  the  function 
E(T ,V) ,  then  PEK  is  called  to  get  P(T,V)  .  In  this  case  the  equations 
of  state  are  included  in  the  FPlOOx  and  FElOOx  form.  If  the  analytic 
equation  of  state  is  written  as  P(E,V),  PET  will  be  the  equation  of 
state  subroutine,  calculating  P  from  E  and  V.  In  this  case,  PET  may 
also  calculate  T(E,V)  if  desired,  although  this  is  not  necessary  un¬ 
less  ^  is  determined  according  to  a  temperature  criterion.  If  the 
equations  of  state  are  in  the  normal  form,  i.e.,  P(T,V),  E(T,V),  the 
deck  $IBFTC  STNDPT  must  be  present  as  well  as  the  FPlOOx  and  FElOOx 
(FKlOOx,  if  necessary) .  If  the  special  form  is  used  and  PET  is  used 
to  calculate  P  and  T  the  FPlOOx  and  FElOOx  are,  of  course,  not 
necessary  in  the  Executor. 

SIBFTC  STNPPT 

SUBROUTINE  PE T ( MAT , T , V , P , E , J ,C  ) 

DIMENSION  C(l} 

CALL  GETVAR(2»2,C,V, J»T,C) 

CALI  PEK(1,MAT,T,V,J,0,P,C) 

RETURN 

END 


PET 


START 


\  <3  ST  VAR  J 


o  o  o 
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35.  PBOUND(T,P)  and  RBOUND(T,R) 

PBOUND  and  RBOUND  are  called  by  CZR.  They  specify  P(t)  and  R(t)  , 

the  pressure  and  density  as  a  function  of  time,  of  the  zones  to  be 

added.  These  are  only  called  if  the  adding  and  combining  of  zones 

is  of  the  sort  which  attempts  to  maintain  a  constant  R. 

jnvax 

36.  PEK 

See  Section  V  paragraph  18. 


JlPFTC  PEKE 

SUBROUTINE  PFK ( NG , PA , T P , VP , J , ND , F , C ) 

C  COMMON  CARD  LABELED  /IKA2/  GROUP  TO  BE  PLACED  HERE 
DIMENSION  COE  I  9  5 
DIMENSION  C(  1) 

If  (PA.GE.1GCC)  GO  TO  20 
CALL  FINDClNG.MAtTP^VPtCOE.C) 

NU1  =  N0+  1 

TRANSFER  TO  FIND  FUNCTION,  OERIV  W.R.T.  T  OR  DERI V  W.R.T.  V  RESPT 

IF  (NG.E0.3)  TP= 1 . /TP 
GO  TO  (100,110, 120), ND1 
ICO  T  2=  TP*T  P 
V2= VP*VP 

F=COE( l)+C0E{2)/VP*C0E(3)*TP+CCt(4}/V2+CCE(5)*T2+C0E(6>*TP/VP+ 

1  COE(7)*TP/V2+COF(8)*T2/VP+CCE(9)*T2/V? 

IF  (  IRAD.FQ.  1 )  GO  TIJ  15 
IF (NQ.EQ. 1 )  F  =  F  +  2.51A*TP**A*l.t—  9 
I F ( NO . EQ . ?  )  F=F+7.5A*TP**A*VP*1.E~9 
GO  TO  15 
11C  V2= VP*VP 

F=COE(3)+COE(5)*2.*TP+COE(6)/VP+CCF(7)/V2+COE(8)*2.*TP/VP+ 

1  CQE(9)*2.*TP/V2 

IF  (IR AD. 60.1)  GO  TO  15 
IF (NC.EQ. 1 )  F=F+2.51A*TP**3*A.E-9 
IF  (NC.F0.2)  F=F +7. 5 A* TP** 3* VP* A. £-9 
GO  TO  15 
12C  T 2=  TP* TP 

F=  C0F(2)+C0E(4)*?./VP+CGF(6)*TP+CCE{7)*2.*TP/VP+C0E(8)*T2+ 

1  C0E(9)*2.*T2/VP 

IF  (IRAD.EQ.l)  GO  TO  15 
I F ( NO. EQ . 2 )  F=F*7.5A*TP**4*l.E-9 
15  IF  (NQ.EQ. 3)  TP=  l./TP 
GG  TL  50 
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1C05  FORMAT  (IHG,28H  *♦*  ERROR  IN  PEK--ND  WRONG.} 

20  CALL  ANEOS  (NQ,KA,TP,VP,F) 

IF  ( NQ.EQ. 1» AND. IRAD.NE. 1 }  F«F42.514E-9*TP*44 
IF  (NQ.EQ. 2. AND. IRAO.NE.l)  F«F47.54E-94?P**4*VP 
IF  (ND.EQ.O)  GO  TO  50 
IW»C 

IF  (NO.NE. 1 )  GO  TO  40 
IF  (TP. LE. 0.0001  I  GO  TO  30 
TDIF*TP*.0001 
GO  TO  32 
30  TOIF-. 00005 
32  TN*TP4T0IF 

CALL  ANEOS  {NQ,HA,TN»VP»FN) 

IF  (NQ.EQ.l. AND. IRAO.NE.l)  FN»FN*2.514E~9*TN*44 
IF  (NQ.EQ. 2. AND. IRAO.NE.l)  FN*FN47.54E-9*TN**4*VP 
FD“A8S( (FN-F >/FN) 

IF  (FD.GE.l.E-06)  GO  TO  33 
T0IF*2.*T0  IF 

I  fa!*  2  b-f  1 

!F( IW.LT.25  GO  TO  32 

PRINT  2000,  J,NQ,WO,IN,TP,TDIF,TN,F,FN,FD 
2000  FORMAT  (4I6,6E16.8) 

IF  (IW.LE.10)  GO  TO  32 
F«(FN-F)*l.E-06/ABS(FN-F)/TDIF 
GO  TO  50 

33  F*  (FN-FJ/TDIF 
GO  TO  50 

40  IF  (VP. LE. 0.0001  )  GO  TO  42 
VDIF*VP*.000i 
GO  TO  44 
42  VOIF«. 00005 
44  VN-VP4VDIF 

CALL  ANEOS  (NQ,MA,TP»VN,FN) 

IF  (NQ.EQ.l. AND. IRAD.NE.l)  FN*FN42.514E-94TP4*4 
IF  (NQ.EQ. 2. AND. IRAD.NE.l)  FN«FNf7.54E-9*TP4*4*VN 
FD«ABS((FN-F)/FN) 

IF  (FD.GE.l.E-06)  GO  TO  46 
V0IF-2.4VDIF 
IW-1W41 

IF  (IW.LT.2)  GO  TO  44 

PRINT  20Q0«J«NO,NDflW,TP,VDIF,VN,FtFN,FD 
IF  (IW.LE.10)  GO  TO  44 
F«(FN-F)*l.E-06/ABS(FN-F)/VDIF 
GO  TO  50 

46  F  «  (FN-FJ/VDIF 
50  RETURN 
END 


F =Q*  fejv+  cTV  d/v  z + eT  2 
-*-f  T /v-vgT/v2  +  hTz'/V 
+  z>7zl  V7' 
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37.  FINDC 

See  Section  V  paragraph  19. 


AIBFTC  FINDC  REF 

SUBROUTINE  FINDC  INF,NA,TP,VP,F,0> 

COMMON  /EOSCOH/  MEOS,  IDE0SI6),  IORDER(fc),  IBEGT(3,6),  DUN, 

I  IBEGVI 3,6 ) t  I8E6C? 3,6 ) 

DIMENSION  F(9i,  Cllt 
HAl*MA*l 

LOOK  *  IQEQ5 (MAI } 

IFILQOK.NE.  0)  GO  TO  5 
2  PRINT  7001 ,MA 

7001  FORMAT  (19H1  MATERIAL  NO.  *IA,25H  IS  NOT  USED  IN  THIS  JOB.) 
RETURN 

5  00  6  1*1,6 

IF ( I ORDER ( I } .EQ.LOQK)  GO  TO  9 

6  CONTINUE 

GO  TO  2 
9  MAI  *1 
ITABT-0 

LI*  IBEGT(NF,MA1) 

L2*  IBEGV (NF,MA1 )-l 
IFINF.EQ.3I  TP*  l./T P 
00  7  l-Ll,L2,2 

IF( (TP.6E.C (I). AND.TP.LE.CI  1*2)  I.OR.I TP.LE.CI  H . AND.TP.GE .C(  I+2H 
1  )  GO  TO  10 
ITABT*  ITABT41 

7  CONTINUE 

10  !F(NF«EQ.3)  TP*  l./TP 

ITABV-0 

LI*  IBEGV(NF,MAl) 

L2*  IBEGCINF  ,MAl)~l 
VP-l./VP 
00  13  I«L1,L2,2 

IF  ( ( VP.GE.C ( I  )• AND.VP.LE.Ct 1+2)  ) .OR. ( VP.LE.C ( I ) • AND. VP.GE.C!  I >2 1 ) 
l  i  GO  TO  15 
ITABV-ITABV+l 
13  CONTINUE 

15  NOFT  *  ( IBEGVI NF, MAI )- I BEGT(NF« MAI  1 |/2 

ICSUB  *  IBEGCINF, MAI )+  ITA8V*N0FT*9*ITABT*9»1 
DO  20  1*1,9 
I  SUB  *ICSUB+ 1 
20  F(I)»  C ( ISUB ) 

VP*l./VP 

RETURN 

END 
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38 .  AHEOS 

See  Section  V  paragraph  20. 


iI8FTC  ANCGS  REF 

SUBROUTINE  ANEOS  ( NF »MA,TP , VP ,F ) 

1C  LA=MA-999 

IF  (NF.NE.l)  GO  TO  20 

GO  TO  <11,12,13, 14*15, 16), LA 

11  F  =  FP 1000  (TP, VP) 

GO  TC  40 

12  F*  FP 100 1  (TP, VP) 

GO  TO  40 

13  F  =  FP1002  (TP, VP) 

GO  TO  40 

14  F  *  FP1003  (TP, VP) 

GO  TO  40 

15  F  =  FP1004  (TP, VP) 

GO  TC  40 

16  F  -  FP 1005  (TP, VP) 

GO  TO  40 

2C  IF  (NF.NE.2)  GO  TO  30 

GO  TC  (21,22,23,24,25,26) , LA 

21  F  =  FE 1  GOO ( TP, VP ) 

GO  TC  4U 

22  F=  FE1001(TP,VP) 

GG  Tr  40 

23  F=  FE 1002  (TP, VP) 

GO  TC  40 

24  F  =  FEIC03  (TP, VP) 

GO  TO  4C 

25  F  =  FE 1004  ( TP, VP) 

GO  TO  4C 

26  F  =  FE1C05  (TP, VP) 

GO  TG  4C 

3C  GO  TO  (31, 32, 33, 34, 34, 36), LA 

31  F  =FK 1 CCO ( TP , VP ) 

GC  TO  40 

32  F=  FK1001(TP,VP) 

GO  TO  40 

33  F  =  FK1002( TP, VP) 

GO  TO  40 

34  F=  FK1C03(TP,VP) 

GO  TO  40 

35  F  =  FK1C04  (TP, VP) 

GC  TC  40 

36  F  =  FK1C05  (TP, VP) 

4C  RETURN 

END 


I 
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39.  FPlOOx,  FElOOx,  FKlOOx 

Sec  Section  V  paragraph  21,  22  and  23. 

40.  GETVAR 

See  Section  V  paragraph  24. 


SIPFTC  CTVARE 

SUBROUTINE  GET  VAR  (MF,NV,F ,VAR, JV,CVAR,C) 

C  COMMON  CARDS  LABELED  /IKA2/  ANC  / JKA2B/  GROUPS  TO  BE  PLACED  HER! 
INTEGER  DELTA,  REGNC ,  UNCGS,  UNMKS 
REAL  KMIN,  KMAX,  KP,  KM,  KOM 

C  SEE  TABLE  FOR  OTHER  SINGLY  LABELED  COMMON  CARDS  TO  BE  PLACED  HERf 
DIMENSION  dl) 

IF(MAT(JV+1).GE.1000)  GO  TO  1 

CALL  GTVRTB(MF,NV,F»VAR,JV,OVAR,NAT(JVm  ,C) 

RfcTURN 
1  NC0T=0 

IF  (NV.EQ.2)  GO  TO  4G 
30  OVARP*VL( JV+l) 

GO  TO  50 

4C  GVARP*TEM( JV+l ) 

GO  TO  60 

50  CALL  PEK  (MF, MAT (JV+l) , VAR  »OVARP» JV*0*FN»C ) 

CALL  PEK  (HF,MAT(JV+1), VAR, OVARP, JV,2,FP,C) 

GO  TO  70 

60  CALL  PEK  ( MF , MAT  I JV+ 1 ) , OVARP , VAR , JV, 0 , FN,C ) 

CALL  PEK  (MF,MAT( JV+l) , OVARP, VAR, JV,1,FP,C) 

70  IF  (AB$(FP).GT.X4*ABS(FN)  )  GO  TO  80 
FP  =  (FP/ABSIFP) )*X4*A£S(FN) 

60  CVAR=OVARP+(F-FN)/FP 

C=ABS( (OVAR-OVARPI/OVAR) 

IF  (C.LE.X4.CR.ABS( ( F-FN) /F ) . LE  . X4  )  RETURN 
NCGT=NC0T+1 

IF  (NC0T.LE.10)  GO  TO  85 

81  WRITE  (6,1010)  JV,  NCOT,  OVAR,  F»FN,VAR,MF ,NV 
1C  10  FORMAT ( IH0,5H  JV*I2, 3X, 5HNC0T® 1 2 , 3X , 5H0VAR=E 14.6 »3X ,2HF=E 14. 6, 
l  3X,3HFN=E14.6,3X,4HVAR=E14.6,3X,3HMF*I2,3X»3HNV*I2) 

IF  (NCOT. LE. 15)  GO  TO  85 
IF  (NCOT. GT. 16)  GO  TO  83 
OVARP  *  ( GVAR+OVARP ) /2. 

GO  TO  90 

83  IF  (NCOT. LE. 21)  GO  TO  85 
CALL  EXIT 
85  CVAftP*OVAR 

90  IF  (NV.EQ.2)  GO  TO  60 
GO  TO  50 
ENO 


5 


i 
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41.  GTVRTB 

GTVRTB  Is  similar  to  the  GTVRTB  of  the  Generator  section  of 
HAROLD.  The  difference  is  that  in  the  Executor  portion,  GTVRTB 
keeps  track  of  the  macro  box  in  which  the  solution  was  previous  ly 
found  for  each  material  and  function,  thus  reducing  the  number  of 
function  values  calculated. 


HBFTC  GVRT8E 

SUBROUTINE  GTVRTB <MF ,NV»F , VAR t JV,OVAR,MA „C > 

C  COMMON  CARO  LABELED  /IKA2/  GROUP  TO  BF  PLACED  HERE 

COMMON  /EOSCGM/  ME0S»  IDE0SI6),  IORDERU),  IBEGT(3»6),  DUM, 
i  I8fcGV( 3*6) »  I BEGC ! 3  »6  ) 

DIMENSION  IVPL(6)  »IVEL(6)  tlVKU6J  ,ITPL(6),IT6L(6)  ,  ITKLI6) 
1,  PVLI6)*  EVLU),  FKVU6),  ETL(fc),  PTK6),  FKTL(  6  J 
DIMENSION  CU) 

DO  10  ITA8=1 *6 

1FUDEOSCMA  +  D.EQ.IORDERUTAB))  GO  TO  20 
1C  CONTINUE 
PRINT  70C0 

7C0C  FORMAT! 16HC ILLEGAL  EOS  NO.) 

CALL  EXIT 

2G  IFINV.EQ.2)  GO  TO  ICG 
IVS*IBEGV(MF, 1TAB) 

NVS= ! BEGC (MF»ITA8)-IVS 
ID£L=1 

GOTO  ( l*  2 *  3 ) »MF 

1  IV= IVPLI HA+ 1 ) 

IFUVPUMA+n.EO.O)  IV=IVS 
IF(F.LT.PVL(MA+l))  GO  TO  6 
PVLIMA41 )=F 

GO  TO  4 

6  1DEL=-1 
IV*IV+1 
PVUMA41  )«F 
GO  TO  4 

2  I V* I VEL ( MA4 1 ) 

IF(IVEL(MA+l),EC.O)  IV=IVS 
IF  {  F.LT  .FVL  (MA-f  1 )  )  GO  TO  7 
EVL ( HA*  l ) *F 

GO  TO  4 

7  !DEL*-1 
IV=IV*1 

EVL  IMA+l )=F 
GO  TO  4 

3  IV* I VKL  <  MA+ I ) 

IF(IVKL(MA4l).EQ.O)  I V= I  VS 
IFIF.LT.FKVLIMA  +  l) )  GO  TO  8 
FKVHMA41  )=F 

GO  TO  4 
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8  IDEL—1 

iv-ivu 

FKVLIHAUS-F 
A  VI-CIIV) 

CALL  PER! HF ,HA,VAR»VI «<JV,G,F1,€) 

00  30  !«2 »HV5 

25  IV»  IVUDEL 

IF! IV.LT. I V$4NV$. AND. IV.GE* 1VS )  60  TO  27 

IFUV.LT.IVS)  GO  TO  26 

IV-IVS 

Vl-CUVi 

CALL  PEK(NF*NA,VAR,Vl»jV,0,Fl,CI 
GO  TO  25 

26  IV«IVS+NVS-1 
Vl»C(IV) 

CALL  PEK«NF,NA,VAA,V1,JV»0,F1,C) 

GO  TO  25 

27  V2-CUVS 

CALL  PER! MF,NA, VAR, V2, J¥,0,F2«C ) 

IF!  UFl.GE.F).AND.(F2,lE.Fn.0R.f  !  Fl.LE. F) .AND. CF2.GE.F)  UGOTOAO 

F1*F2 

V1-V2 

30  CONTINUE 
PRINT  7001 

7001  FORHAT<38HOGTVRT8  UNABLE  TO  SPAN  FUNCTION  VALUE.) 

CALL  EXIT 

AC  NCOT-O 

CO  TO  <A1,A2,A3),MF 
A1  If  UOEL.EQ.l)  IVEL!NA4l)*I V-I 
IF  t I DEL. EG.- 1) IVEL!ftA+l)«IV 
GO  TO  AA 

A2  IFUOEL.EQ.  IS  IVPL<HA4l)-IV-’ 

IFUOEL.EQ. -1)  IVPL!NA41)*>IV 
GO  TO  AA 

A3  IFUOEL.EQ.  1)  !VKL!NA4l)«IV-l 
IFUOEL.EQ. -1)  IVKL!MA41)«IV 
AA  VL«V2 

60  V3»VI-! VI-V2 )*! F1»P )/!Fl-F2S 

IF  (ABSUVL-V3)/V3).GT.XA)  GO  TO  70 
0VAR-V3 
RETURN 

70  NC0T-NC0T41 

IFtNCOT.LE. 15)  GO  TO  80 

IF(NC0T.6T.20)  CALL  EXIT 

PRINT  7002*  V1*V2,V3,F1,F2»F3  ,NA,JV,VAR 

7002  F0RMAU23H0V1,  V 2,  V3,  FI,  F2,  F3/6E16.7  /2U2,E16.7) 

80  CALL  PEK{RF«MA,VARgV3« JV,0,F3«C) 

VL»V3 

IFIF3.GT.F)  GO  TO  90 
85  F1-F3 

Vl«V3 
GO  TO  60 
90  F2»F3 

V2-V3 
GO  TO  60 


* 

/ 

f 


i 
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100  ITS«IBEGT<HF*ITAB> 

KTS*iBEGV(MF,ITA81-lT$ 


101 


106 


102 


107 


I0EL*1 

GO  TO(l0itl02»103)*PF 
IT*ITPU«AM1 

1FI STPL(PA4i ) »EQ*Oi  1T*!TS 

IFtF.LT.PTLf«A*l>)  GO  TO  106 

PTLIPA*U*F 

GO  TO  104 

10EL—1 

lT»mi 

PTLt*A*lI*f 

CO  TO  104 

IT-IIELIHAMI 

IHITEUWA+i)  .EQ.OJ  1T-ITS 
If |F«LToETLIPA*tl  I  GO  TO  107 

ETUKA4l>*F 
GO  TO  104 
IDEfL— I 
IT*  ml 

ETLIFA*I)-F 


103 

108 

104 

125 


126 

127 


£0  TiJ  104 
1T-1TKUHA41! 

If smUKA4l).EQ.0»  IT-ITS 

If<F.lT.fKTU«A4in  CO  TO  108 

FKfUPA-MJ-F 

CO  TO  104 

IOEL— 1 

ST«IT*1 

FKTLIPA^l l“F 

Tl-CIIT)  „ 

CALL  PCKlHF*MAf Tl«VA8t JV*0»F1*C) 


00130  I*2»NTS 

If IIT*Lt!iTS4NTS.AN0.1T,GE,ITS)  GO  TO  127 
IF  I IT«LT« ITS l  GO  TO  126 
IT* I  IS 

Tl-CIIT)  „ 

CALL  PEMPF,PA,T1»VAR,JV,0|FI»C> 

GO  TO  125 

it«its*nts-i 

T1-CUT1 

CALL  PEM*F,NA,T1»VAR,4VjO*F1»C) 

GO  TO  125 
72*C( IT) 

CALL  PEMKF,PAfT2,VAA,JV,0,F2.C) 

If  (UF1.GE.  FI.  AND.  CF2.  LE.Fl J.QR.I «  Fi.LE.F).  AND. 


tF2.GE.F»nG0T0l4 


F1-F2 

T1-T2 


; 


/ 


«r* 


541 


13C  CONTINUE 

PRINT  7001 
CALL  EXIT 

140  NCOT-O 

GO  TO  1141,142,143) ,NF 

141  I F C  IDEL.EQ.  1)  ITPL«NA+U»IT-l 
IF ( IOEL • EQ.-l )  ITPUKA^n*lT 
GO  TO  144 

142  IFUDEL.EQ.  1)  ITEL{MA-HS*IT-1 
IF ( IDEL, EQ.-l )  ITEL  <HA+l )*1T 
GO  TO  144 

143  IFI IDEL.EQ.  1)  I TKL ( HA+i ) *IT-1 
1FUDEL. EQ.-l)  ITKL<NA+i)*IT 

144  TL*T2 

160  T3*TI-*<T1— T2  )*(  Fi-F )/ IF1-F2 ) 

IF  <ABS< <TL-T3)/T3).GT.X4)  GO  TO  170 
0VAR-T3 
RETURN 

1?C  NC0T-NC0T41 

IF  INCOT . L£« 15 )  GO  TO  18Q 
IF  I NCOT.GTo 20 )  CALL  EXIT 
PRINT  7003*  T1,T2»T3»F1,F2»F3*NA,JV»VAR 
7003  FORHAT C23H0T1 ,  T2,  T3,  FI,  F2,  F3/6E16.7  /2112»E16.7) 
180  CALL  PEK<NF,MA,T3,VAR,JV,0,F3*C) 

TL=T3 

IFIF3.GT.F)  GO  TO  190 
185  Fi«F3 
T1*T3 
GO  TO  160 
190  T2=T3 

F2*F3 
GO  TO  160 
ENO 
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IV5  =  I5EGV(MF,ITA6) 

Nl/6  =(?bZ6G  (MF,  1TA£)-IV^ 
IOEL-  I 
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42.  IKAERR 

IKAERR  is  called  by  ALIBI  when  a  necessary  subroutine  is  found 
missing.  It  prints  the  message  "ALIBI  HAS  BEEN  REACHED.* 


FI6FTC  IKAERR  REF 

SUBROOT l NF  IKAERR 
PRINT  7C00 

7CC0  FURMAT  I24H0ALIBI  HAS  BEEN  REACHED.  ) 
CALI.  EXIT 
END 


43 .  ALIBI 

ALIBI  contains  entry  point  to  all  routines  which  may  be  omitted. 

It  should  be  loaded  last. 

IIRFTC  ALIBI  REF 

SUBROUTINE  ALIBI 
CALL  IKAERR 
RETURN 
f-NO 

$ IBFTC  FPICOC 

FUMCT  ION  FPiCCOl T,V) 

CALL  IKAERR 

RETURN 

END 

SIPFTC  FPK01 

FUNCTION  FPLCCl(TfV) 

CALL  IKAL-RR 

RETURN 

ENO 

ilBFTC  FP1C02 

FUNCTION  FP 1 CG2 I T  » V ) 

CALL  IKAFPP 

RETURN 

END 

UP.FIC  FP1C.C3 

FUNCTION  FP1C03(T»V) 

CALL  IKAERR 

RETURN 

END 

ilHFIC  FPU  04 

FUNCTION  FP  l CC4 ( T  »  V ) 

CALL  IKAERR 

RETURN 

END 

$  I RFTC  FP 1 005 

FUNCTION  FP1CC5I T  » V) 

CALL  IKAERR 

return 

END 

$ IPFTC  FE10CC 

FUNCTION  Ft ICCCI T,V) 

CALL  IKAERR 

RTTUPN 

END 


BCEBSSBSEHSSSesf^-^-*'-- 


-  •> 


f 

f 


lv 
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$  I8FTC  FElOCi 

FUNCTION  FEIOOK  T » V) 
CALL  IKAERR 
RETURN 
END 

*  IEFTC  FE1002 

FUNCTION  FEIC02I T*V) 
CALL  IKAERR 
RETURN 
END 

AIEFTC  FE1C03 

FUNCTION  FE1003I T»Vl 
CALL  IKAERR 
RETURN 
END 

AIBFTC  FEIGC4 

FUNCTION  FE1C04IT.V) 
CALL  IKAERR 
RETURN 
END 

A  IEFTC  FE1005 

FUNCTION  FE1C05I T*  V) 
CALL  IKAERR 
RETURN 
END 

AIPFTC  FKIOOC 

FUNCTION  FK1CCG4  T » V) 
CALL  IKAERR 
RFTURN 
END 

AIBFTC  FKtGOl 

FUNCTION  FKICOUT.VJ 
CALL  IKAERR 
RFTURN 
END 

AIBFTC  FK1002 

FUNCTION  FK1C02I T t V ) 
CALL  IKAERR 
RETURN 
END 

$ IEFTC  FK 1003 

FUNCTION  FK10C3I T» VI 
CALL  IKAERR 
RETURN 
ENO 

AIBFTC  FK 1004 

FUNCTION  FK1004I T» V) 
CALL  IKAERR 
RETURN 
END 
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SIBFTC  FK1C05 

FUNCTION  FKICC5I T  »V) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  DRCA 

SUBROUTINE  ROA(C) 

CALL  IKAERR 

RETURN 

END 

$  I PFTC  DPCT 

SUBROUTINE  PET 
CALL  IKAERR 
RETURN 
END 

SIBFTC  OTSR 

SUBROUTINE  TSR(C) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  DROAXP 

SUBROUTINE  ROAEXP-IC} 
CALL  IKAEkK 
rfturn 
ENO 

SIBFTC  OT SR  XP 

SUBROUTINE  TSREXP(C) 

CALL  IKAERR 

RETURN 

ENO 

SIBFTC  CCCR 

SUBROUTINE  CORIC) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  DROAHP 

SUBROUTINE  ROAIMP(C) 

CALL  IKAERR 

RETURN 

ENO 

SIBFTC  OROB 

SUBROUTINE  ROB(C) 
CALL  IKAERR 
RETURN 
END 

SIBFTC  CROC 

SUBROUTINE  ROCIC) 
CALL  IKAERR 
RETURN 
ENO 

SIBFTC  CRDI 

SUBROUTINE  RDKC) 
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CALL  IKAERR 

RETURN 

END 

SIBFTC  DROD 

SUBROUTINE  RGDIO 
CALL  IKAERR 
RETURN 
END 

$ IBFTC  DROE 

SUBROUTINE  ROE(C) 

CALL  IKAERR 

RETURN 

END 

SIBFTC  DTSRMP 

SUBROUTINE  TSRIMP(C) 

CALL  IKAERR 

RETURN 

END 

SIBFTC  DRBND 

SUBROUTINE  RfiGUND ( TH , RHC ) 

CALL  IKAERR 

RETURN 

END 

SIBFTC  DPBND 

SUBROUTINE  PBOUND  (TN.PRJMP2) 
PRJMP2  =  0. 

RETURN 

END 

S IBFTC  DZNSRF 

FUNCTION  ZNSRFNI J.SFN) 
ZNSRFN=C. 

RETURN 

END 

SIBFTC  DRGSRF 

FUNCTION  RGSRFN ( NR » SFN ) 
RGSRFN=G. 

RETURN 

END 
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VII.  TABCOE  PROGRAM  DESCRIPTION 


PURPOSE 

TABCOE  is  a  code  which  generates  interpolation  coefficients 
from  tabular  equations  of  state.  The  input  is  an  equation  of  state 
on  a  binary  tape  or  on  cards ;  the  output  is  a  binary  tape  containing 
the  original  equation  of  state  data  plus  the  calculated  interpolation 
coefficients.  This  is  a  special  nurpose  routine  for  use  in  conjunc¬ 
tion  with  HAROLD. 

Input  units  for  generating  the  TABCOE  values  are  as  follows  for 
Tables  1  and  2: 

T's:  Kev 

p's:  g/cc 

r  16 

P's:  10  ergs/cc 

E's:  lO1^  ergs/gm 

2 

In  Table  3,  1/T  is  input  instead  of  T,  p  in  g/cc,  K  in  cm  /gm. 

Output  units  are  as  follows : 

T  in  104  °K  in  Tables  1  and  2;  1/T(104  °K)  in  Table  3 
p  in  g/cc 
P  in  10 10  ergs/cc 
E  in  10^  ergs/gm 

2  4  o  4  3  2 

k  in  MMEGMS  units  [m  (10  °K)  (msec)  /(megagrams)  ] 

In  HAROLD  it  is  necessary  to  calculate  P(T,V) ,  (^~)  and  (^— )  . 

o-**  o” 

These  are  accomplished  by  using  the  interpolation  coefficients  as 
follows : 

F(T,V)  =  a  +  b/v  +  ct  +  d/v2  +  et2  +  ft/v  +  gt/v2  +  ht2/v  r  ot2/v2, 

(v?)  =  c  +  2et  +  f/v  +  g/v2  +  2ht/v  +  2*ot/v2 
d-i- 

and 

(fy)  =  +  2d/v  t  +  2gt/v  +  ht2  4-  2-ot2/v. 

o” 
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The  input  table  looks  like: 


where  m  and  n  must  be  odd.  This  table  is  divided  int?  "macro-boxes," 
as  indicated  by  the  dotted  lines.  A  set  of  nine  interpolation  co¬ 
efficients  is  determined  by  the  nine  function  values  in  each  macro¬ 
box.  The  macro-boxes  containing  the  T,p  pairs  and  their  associated 
coefficients  overlap  on  all  contiguous  edges.  If  m=  the  number  of 
temperatures  and  n=  the  number  of  densities,  the  total  number  of 
macro  boxes  will  be  (m-1)  x  (n-l)/4. 


1 
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METHOD 

The  matrix  equation 


i 

°i 

T1 

2.  2 
°1  T1 

Tl°l 

i 

°2 

T1 

2  2 
P2  Tx 

Tl°2 

»22i1 

i 

P3 

T1 

2_  2 
p3  T1 

T1p3 

i 

Pi 

T2 

2t  2 
P1  T2 

T2p1 

2t 

P1  T2 

i 

P2 

T2 

2_  2 
p2  T2 

T2p2 

2t 

P2  *2 

i 

p3 

T2 

2t  2 
p3  t2 

T2p3 

2t 

p3  i2 

i 

pl 

T 

3 

2m  2 
P1  T3 

T3p1 

2t 
P1  T3 

i 

p2 

T 

3 

2t  2 
p2  t3 

T3c2 

2t 
p2  L3 

i 

p3 

T 

3 

2t  2 
p3  3 

T3p3 

2t 
p3  T3 

is  solved  for  a,  b,  c,  d,  e,  f, 


2  _  2  2“ 
T1  pl  T1  pl 

a 

f(T1>Pl) 

„  2  m  2  2 
T1  °2  T1  °2 

b 

^ j  p2) 

2  2  2 

T1  p3  T1  °3 

c 

f(T1>P3) 

2  2  2 

T2  P1  T2  P1 

d 

f(T2,Pl) 

_  2  2  2 
T2  °2  T2  p2 

e 

f(f2sp2)  | 

T  2  T  2  2 

T2  p3  T2  °3 

f  (f  2  >  p3) 

2  2  2 

T3  pl  T3  pl 

!  8 
j 

f(T3,Pl) 

T  2  T  2  2 

J  p2  i3  p2 

1 

i  h 
! 

f(T3>o2) 

.2  2  2 
■^3  p3  ^3  p3 

1 

i_° 

£  p  ) 

g,  h,  and  o. 


INPUT  DATA 

Card  1:  KDIRCT,  KINTPE,  KOPT,  KOUTPE,  KPRINT 
FORMAT :  (5 16) . 

KDIRCT:  1  if  output  is  to  go  on  a  previously  used  binary  tape. 

2  if  a  new  binary  tape  is  to  be  used. 

KINTPE:  Logical  tape  designation  of  binary  input  tabe  (must  be 
positive  even  if  cards  are  used) . 

KOPT:  1  if  input  is  on  tape.  2  if  input  is  on  cards. 

KOUTPE:  Logical  tape  designation  of  binary  output  tape. 

KPRINT:  1  if  results  are  not  to  be  printed.  2  if  results  are  to  be 
printed. 


Card  2:  IDIN,  IDOUT. 

FORMAT:  (516). 

IDIN:  ID  number  of  an  input  equation  of  state. 

IDOUT:  ID  number  to  be  associated  with  it  on  the  output  equation 

of  state. 


I 
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If  the  equation  of  state  is  to  be  input  via  cards, the  equation 
of  state  with  ID  number  IDNO  comes  next, followed  by  another  card  2 
and  another  equation  of  state,  etc. 

The  equation  of  state  cards  are  of  the  form: 


IDNO,  NTAB,  NTEMP1,  NRH01 

TEMP^,  TEMP12,  . TEMP1NTEMP1 

RH04,  RH01,,  . RH01NRH01 

Pl,l»  P2,l*  . PNT'2iPl ,  1 

Pl,2*  P2,2*  PNTEMP1,NRH01 

•  • 

*  # 

•  • 

P1,NRH01*  P2,NRH01*  . PNTEMP1  ,NRH01 

IDNO,  NTAB,  NTEMP2,  NRH02  f 

TEMP2,  TEMP22,  . .  TEMP2NT)gMp2  I 

RH02l,  RH022,  . .  RH02nrhq2  y 

El,l*  E2,l»  . .  ENTEHP2,1  I  • 

^1,2*  E2,2  ’  *  ENTEMP2,2  | 

t 


E1,NRH02’  E2,NRH02’  . .  ENTEMP2,NRH02 


and  similarly  for  K,  where  IDNO  is  the  equation  of  state  ID  and  NTAB 
is  3  for  K.  The  format  for  the  first  card  of  each  section  is  (13, 

II,  212)  and  for  all  the  others  (5E14.7). 

If  the  equations  of  state  are  on  a  binary  tape,  there'" should  be 
two  records  for  each  equation  of  state  equation. 

1.  IDENT,  NTAB,  NTEMP1,  NRH01 

2.  tempi19  tempi2,  ...  tempWi,  rhoi1,  rhoi2,  ..., 

RH01NRH01>  Pl,l*  P2,l*  •••»  PNTEMP1 , 1 ’  Pl,2’  P2,2» 

PNTEMP1,2’  *•**  P1NRH01 5  P2,NRH01’  PNTEMP1,  NRH01 

for  pressure  and  similar  terms  for  energy  and  opacity. 


I  : 

(  1 

r  | 

■  I 


-354- 


OUTPUT 

The  term  of  the  output  tape  is : 

Record  1:  IDOUI,  NTAB,  NTEMP,  NRHQ 

Record  2:  T,  i  =  1,  NTEMP,  R.  i  =  1,  NRHO 

i  *  *  i  * 

Record  3:  f^,  f2fl>  •••»  f NTEMP, 1 

£1,2*  f2,2*  *•*»  fNTEMP,2 
•  * 

•  ♦ 

•  • 

f l,NRHO*  f 2, NRHO’  fNTEMP,  NRHO 

Record  4:  b^,  o^ 

a2,l*  b2,l»  •>  °2,1 

•  • 

•  • 

«  • 

aNT,l’  bNT,l*  °NT,1 

al,2»  bl,2»  °1,2 

a2,2’  b2,2»  *•*»  °2,2 

• 

aNT,2»  bNT,2,  °NT,2 

al,NR’  bl,NR . °1,NR 

a2,NR’  b2,NR’  °2,NR 

aNT,NR’  bNT,NR’  '  ‘  ’  °NT,NR 
where  NT  =  (NTEMP-l)/2  and  NR  -  (NRHO-l)/2. 


VIII.  NOTES  FOR  FORTRAN  VERSION 


For  greater  flexibility  in  HAROLD,  some  of  the  subroutines  are 
written  in  the  MAP  language.  Since  MAP  is  a  coding  language  avail¬ 
able  only  under  IBSYS,we  have  rewritten  these  routines  in  FORTRAN 
for  our  less  fortunate  brethren. 

We  will  explain  the  functions  of  the  MAP  routines,  note  the 
corresponding  loss  of  flexibility,  if  any,  in  FORTRAN,  and,  in  the 
case  of  those  routines  which  are  untranslatable  into  FORTRAN,  attempt 
to  indicate  what  the  user's  new  responsibilities  will  be. 

SUBROUTINES  COMSIZ 

The  first  routine  to  be  affected  will  be  COMSIZ.  This  routine 
must  appear  first  in  both  the  Generator  and  Executor  portions  of 
HAROLD,  Its  function,  in  essence,  is  to  set  up  a  labeled  common 
with  dimensions  for  all  the  zone  variables  used  in  the  problem.  The 
advantage  of  coding  in  MAP  is  that  by  changing  one  card  the  entire 
problem  may  be  redimensioned. 

For  example:  a  COMMON  statement  in  FORTRAN 
COMMON/RC/  R(202) 
may  be  translated  into  MAP  as : 

SIZE  EQU  202 

RC  CONTRL  R,  R+SIZE 

R  BSS  SIZE 

To  change  the  dimensions  of  R  you  must  change  the  number  in  brackets 
in  the  FORTRAN  statement  and  change  the  value  of  SIZE  in  MAP.  In 
the  case  of  one  variable  it  hardly  matters  whether  you  use  FORTRAN 
or  MAP.  However,  if  you  have  many  variables  with  the  same  dimension, 
you  must  cnange  every  bracket  in  the  FORTRAN  COMMON  statement  but 
still  need  only  to  change  the  value  of  SIZE  in  MAP. 

The  COMSIZ  routine  irt  the  Executor  portion  of  HAROLD  has  three 
variables  which  may  be  adjusted  viz.,  SIZE,  SIZEE,  and  SIZEI  for 
hydrodynamics,  explicit  and  implicit  radiation  respectively.  SIZE 
delimits  the  dimensions  cf  the  variables  used  for  all  problems.  If 
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you  are  running  a  hydro  only  problem  and  need  more  storage  space  for 

tables,  SIZEE  and  SIZEI  may  be  set  to  zero.  The  hierarchy  of  variables 

is  such  that:  SIZE  is  adjustable  but  never  zero, 

SIZEE  is  zero  if  and  only  if  hydro  only, 

SIZEI  is  zero  if  and  only  if  (hydro  only  or  explicit  only) . 

At  the  most  only  three  cards  must  be  changed  in  order  to  redimension 
the  problem.  In  FORTRAN  every  dimension  must  be  altered. 

In  addition  to  setting  up  COMMON  statements  the  MAP  version  of 
COMSIZ  in  the  Executor  had  a  table  which  contained  the  conversion 
factors  for  the  various  output  units  that  were  permissible  in  MAP. 

This  section  of  COMSIZ  is  omitted  in  the  FORTRAN  version  because  the 
user  must  write  his  own  output  format  and  arrange  the  conversion  of 
the  variables  he  wants  output  to  the  appropriate  units. 

Finally,  in  both  versions  of  COMSIZ  the  statements  COMMON/CTABLE/ 
C(5000)  (where  5000  is  some  appropriate  number)  gives  you  the  dimensions 
of  the  tabular  equations  of  state.  Previously  the  subroutines  GMAIN 
and  EMAIN  calculated  the  total  amount  of  unused  core  after  the  problem 
had  been  loaded  and  supplied  this  number  as  the  maximum  dimensions  of 
the  tabular  equations  of  state.  The  FORTRAN  user  will  have  to  determine 
this  number  for  himself  and  then  supply  it  to  the  common  statement. 

(Note:  If  the  above  remarks  have  not  already  made  it  clear,  the 
COMSIZ  for  the  Generator  is  not  the  same  as  the  COMSIZ  for  the  Executor.) 

SUBROUTINE  HOLWD 

In  essence,  HOLWD  is  a  COMMON.  It  is  never  executed.  It  con¬ 
tains  the  BCD  images  of  all  data  card  titles  and  variable  labels.  Be¬ 
cause  we  have  this  Hollerith  information  stored  in  BCD  form,  we  are 
able  to  test  for  the  Hollerith  value  of  any  data  card  title  of  variable 
label,  in  the  same  way  we  would  test  the  relative  values  of  any  two 
pieces  of  BCD  information. 

The  Generate  portion  of  HAROLD  contains  many  subroutines  which 
are  devoted  exclusively  to  the  reading  and  interpretation  of  Generate 
data  cards.  For  example: 


STREAD  -  the  start  card 


V 
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CYCRED 

- 

the 

history  edit,  print  out  and  energy  edit  cards 

THREAD 

- 

the 

time  step  card 

UNTRED 

- 

the 

units  card  (not  in  FORTRAN  version) 

GEOM 

- 

the 

geometry  card 

RMREAD 

- 

the 

RMIN  card 

EOSNRD 

- 

the 

EOS  card 

REGNRD 

- 

the 

region  and  zone  cards 

SOURCE 

- 

the 

source  cards 

BOUND 

- 

the 

boundary  minimum  and/or  maximum  cards 

COMB 

- 

the 

combination  card 

TMPRED 

- 

the 

temperature  card 

PERC 

- 

the 

percents  card 

All  that  the  above  subroutines  do  is  interpret  the  particular  card 
they  represent.  If,  for  instance,  RMIN=0,  you  do  not  need  an  RMIN 
card  and  consequently  you  never  go  to  the  subroutine  RMREAD. 

It  is  because  of  HOLWD-~Hollerith  word--that  the  I/O  scheme 
for  HAROLD  is  so  extremely  flexible.  Each  data  card  is  read  in  at 
a  gulp  in  format  12A6  (MAP  version) .  All  data  card  titles  appear 
as  Hollerith  words  in  columns  1-6.  To  decide  which  card  we  are 
reading  is  a  simple  matter  of  elimination  due  to  HOLWD.  We  start 
with  the  BCD  image  of  the  first  possible  data  card  and  by  making  the 
test 

IF  (CARD(l) .EQ.STARTB)  GO  TO  STREAD 
we  literally  subtract  the  BCD  image  of  START  as  contained  in  HOLWD 
from  the  BCD  image  on  CARD(l).  If  the  value  is  zero,  we  know  we 
are  reading  the  START  card;  if  not,  we  follow  with  another  test 
IF  (CARD(l)  EQ.HISTOR)  GO  TO  CYCRED,  etc. 

If  some  card  that  must  be  present  is  not,  we  get  a  message 
telling  us  so.  Otherwise  the  programmer  need  put  in  only  those 
cards  which  apply  to  his  particular  problem.  For  instance,  a  plane 
geometry  problem,  with  RMIN=0,  no  tabular  equations  of  state,  no 
source  functions  and  no  boundary  conditions  needs  only  the  following 
cards : 
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MAP  Version 

FORTRAN  Version 

START 

START 

HISTORY  EDIT 

HISTOR 

PRINT  OUT 

PRINT 

ENERGY  EDIT 

ENERGY 

TIME  STEP 

TIME  S 

REGION 

(ZONE  if  appropriate) 

REGION 

COMBINATION 

COMBIN 

ZTEMPERATURE 

ZTEMPE 

PERCENTS 

PERCEN 

ENDATA 

ENDATA 

There  is  also  extreme  flexibility  in  the  numbers  and  kinds  of 
variables  which  are  included  on  a  particular  data  card.  All  variable 
names  appear  in  cols.  13-15,  28-30,  43-45,  58-60.  The  values  associ¬ 
ated  with  a  given  variable  occupy  the  12  columns  immediately  follow¬ 
ing  it.  For  example,  if  T=  appeared  in  cols.  13-15  the  value  of 
Temp  will  be  in  cols.  16-27. 

The  method  of  establishing  the  identity  of  the  variable  is 
identical  to  the  method  used  in  identifying  the  title  of  a  particular 
card.  Its  logic  is  slightly  more  sophisticated  in  that  there  are 
four  possible  locations  for  variable  labels  on  a  particular  data 
card,  whereas  all  card  titles  appear  in  cols.  1-6.  The  subroutine 
responsible  for  reading  a  particular  card  reaches  in  and  picks  out 
of  the  entire  card  image  the  contents  of  cols.  13-15.  It  then  tests 
the  information  found  there  against  the  BCD  image  of  every  possible 
variable  label  that  can  appear  on  the  card.  When  a  match  is  found, 
the  subroutine  plucks  the  value  of  the  variable  from  cols.  16-27 
and  stores  it  in  the  correct  place.  It  then  moves  over  to  the  next 
field,  i.e.,  cols.  28-30,  and  repeats  the  testing  process. 

Without  HOLWD  there  would  have  to  be  a  fixed  set  of  data  cards, 
all  containing  specific  and  inflexible  information.  The  Generate 
section  of  HAROLD  would  contain  13  fewer  subroutines,  and  the  user 
of  HAROLD  simply  wouldn't  bother. 


The  Generate  section  becomes  much  less  formidable  when 
the  user  realizes  that  much  of  it  is  just  searching  card  labels  and 
columns  to  identify  input  information.  HOLWD  contains  the  BCD  images 
of  all  Hollerith  information  which  can  appear  in  the  Generate  data. 

The  MAP  version  of  HOLWD  looks  like  this: 


RION 

CONTROL 

REGION,  REGIONfl 

REGION 

BCI 

1,  REGION 

PNTB 

CONTROL 

PRINT,  PRINTB+1 

PRINTB 

BCI 

1,  PRINT 

TQ 

CONTROL 

TEQ,  TEQ+1 

TEQ 

BCI 

1,  T= 

The  FORTRAN  version  of  HOLWD  accomplishes  the  same  job  in  the 
following  way: 

Subroutine  HOLWD 

COMMON/PNTB/PRINTB 
DATA/PRINTB/ 6HPRINT  / 

COMMON /RION /REGION 
DATA  REGION/ 6HREGI0N/ 

COMMON/TQ/TEQ 

DATA  TEQ/6HT=  / 


SUBROUTINE  GMAIN  (The  same  discussion  will  apply  to  SUB  EMAIN) 

GMAIN  is  the  entry  point  into  the  Generator.  It  calls  GENRAT 
with  the  arguments  C  and  LIMIT.  C  is  the  address  of  the  first  cell 
in  unused  core  after  loading.  LIMIT  is  a  number  calculated  by  sub¬ 
tracting  C  from  the  last  address  in  unused  core.  When  tabular  equa¬ 
tions  of  state  were  used  the  size  of  the  tables  were  compared  to 
LIMIT,  the  maximum  possible  storage  space.  If  they  were  found  to  be 
too  big  some  adjustment  in  dimensioning  could  be  made  in  COMSIZ.  In 
any  case,  you  always  had  the  maximum  storage  space  for  tables  under 
the  conditions  of  the  problem. 

This  flexibility  is  not  available  to  non-IBSYS  users  and  GMAIN 
now  dimensions  the  tables  with  a  constant  by  means  of  the  statements 
DIMENSION  C(2000)  (where  2000  may  be  determined  by  the  user)  and 
LIMIT=2000.  It  then  calls  HOLWD  which  sets  up  Hollerith  commons, 
and,  finally,  calls  GENRAT  (C, LIMIT) . 
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SUBROUTINE  GET  LAB  (X,  J.  A)  (map  Version) 

All  data  cards  are  read  into  the  machine  by  means  of  the  follow¬ 
ing  statement: 

DIMENSION  CARD  (12) 

READ  1,  CARD 
1  FORMAT  (12A6) 

As  a  result  of  calling  H0LWD  in  GMAIN  all  Hollerith  literals  are  in 
common.  Each  data  card  is  read  as  12  Hollerith  words.  CARD(l)  repre¬ 
sents  the  first  field  of  6  letters.  This  field  will  either  be  blank 
or  contain  the  title  of  the  data  card,  e.g.,  REGION.  CARD(2)  repre¬ 
sents  the  second  field  of  6  and  is  significant  only  on  certain  cards. 
I'or  example,  on  the  REGION  card  CARD (2)  contains  the  material  number 
of  the  equation  of  state  used  in  that  region.  CARD(3)  represents 
columns  13-18.  CARD(4)  represents  columns  19-24,  and  so  on  up  to 
CARD(12) ,  columns  67-72. 

Now  all  variable  names  (labels)  occupy  the  following,  and  only 
the  following,  columns  on  the  data  cards. 

Cols.  13-15,  28-30,  43-45,  58-60. 

The  function  of  GETLAB  is  to  determine  which  variable  we  are  reading 
and  then  CONVRT  assigns  its  associated  value  to  the  variable  just 
identified  by  GETLAB. 

To  read  cols.  13-15  we  are  concerned  with  CARL (3)  format  (A3) 

28-30  CARD (5)  (3X,A3) 

43-45  CARD (8)  (A3) 

58-60  CARD (10)  (3X,A3) . 

To  illustrate:  CARD(5)  represents  cols.  25-30.  We  are  interested 

only  in  cols.  28-30,  i.e.,  (3X,A3).  CARD(8)  represents  col.  43-48, 

we  need  43-45  or  convert  CARD(8)  to  (A3).  Once  again  you  are  referred 

to  REGNRD  to  appreciate  the  logic  involved  here. 

GETLAB  is  called  with  the  arguments  I,  J,  A.  I  and  J  must  be 

one  of  the  following  pairs  : 

I  J 


13 

15 

28 

30 

43 

45 

58 

60 

'-■sr 


■ 


ki 
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A  is  determined  in  GETIAB  and  returned  as  WLAB  which  is  then  tested  for 
all  possible  variables  that  might  appear  on  the  card.  Once  the  iden¬ 
tity  of  the  variable  has  been  established  its  value  is  determined  by 
CONVRT. 

SUBROUTINE  CONVRT  (I.J.A)  (MAP  Version) 

I  is  the  value  of  FIELDN  in  the  routine  which  calls  CONVRT. 

FIELDN  is  a  flag  which  corresponds  to  the  appropriate  field  on  the 
card  you  are  reading  and  has  the  values  1,  2,  3,  or  4. 

FIELDN=1  corresponds  to  cols.  16-27  corresponds  to  1=1 

2  31-42  2 

3  46-57  3 

4  61-72  4 

J  has  the  value  1  or  2  depending  whether  you  want  a  fixed  or  floating 
point  conversion.  A,  which  was  established  in  GETLAB,  is  the  name  of 
the  variable  whose  value  is  to  be  returned  by  CONVRT.  For  example, 
suppose  we  are  reading  a  REGION  card  and  we  find  that  the  variable  in 
cols.  28-30  is  "J=",  We  know  the  value  of  J  is  a  fixed  point  number 
lying  in  cols.  31-42,  so  CALL  CONVRT  (2,1,JREG(REGN0))  .  If  the  variable 
in  Cols.  58-61  were  "RH="  we  know  that  the  value  of  rho  is  floating 
point  and  lies  in  cols.  61-72  and  we  would  CALL  C0NVRT(4,2,RHVAL) , 

EMAIN 

Same  comments  apply  as  made  for  GMAIN. 

ESTAB  AND  FORMS 

Set  up  output  units  and  formats  in  the  MAP  version  which  were 
requested  by  the  user  via  the  output  description  data  deck  at  the  end 
of  EXEC  data  package.  Forms  is  not  translatable  into  FORTRAN  and  the 
user  will  now  be  responsible  for  his  own  output  units  and  formats 
which  he  will  specify  in  the  following  subroutine. 

SUBROUTINE  PROUT  (C) 

This  subroutine  contains  the  COMMONS  for  all  the  necessary  out¬ 
put  variables.  The  user  must  prepare  his  own  output  here.  Attached 
is  a  sample  PROUT  to  reproduce  the  output  of  Example  1. 
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A18FTC  PRQUT  REP 

SUBROUTINE  PROUT(C) 

COMMON  /IKA2/  ERS(6,10),  ES(6,10),  TMRS(6,10)»  TMS(6,10),  RS(IO), 

1  J$(10),  NRS(IO),  NZSUO),  RRG(15),  JREGI15),  C1U5),  C2(15)» 

2  C3( 15) ,  C4( 15) ,  C5(  15) ,  E0(15),  EMIN(6t,  EMAX(6),  KMIN56), 

3  KMAX(6),  PMIN(6) »  PMAX(6),  TMIN(6),  TMAXI6) •  UMIN16),  UMAXJ6), 
4TEMlN( 6) ,  TEMAXI6),  TKM1NI 6) »  TKMAX(6) «  TPMIN(fe),  TPMAXI6),  NKMAX, 

5  TTMINI6),  TTMAXI6),  TUMIN(6),  TUMAXI 6) *  NEMIN,  NEMAX,  NXMIN, 

6  MPMIN,  NPMAX,  NTMIN,  NTMAX,  NUMIN,  MUMAX,  NRSRCE,  NZSRCE, 

7  JO,  JOS,  JOM,  DRC,  Zl,  Z2,  JL,  XI,  X2,  X3,  X4,  X5,  X6,  NS,NF, 

8  UNCGS,  UNMKS,  TM,  OT,  OTP,  JSTAR,  JHAT,  JMAX,  DELTA,  REGNO,  JZ, 

9  NREG,  NEOS,  RMIN,  RMAX,  I RAO 
COMMON  /MATC/  MAT ( 1 ) 

COMMON  /RC /  R(i) 

COMMON  /UC/  UC1) 

COMMON  /TENC/  TEM(l) 

COMMON  /VLC/  VL(1) 

COMMON  /PRC/  PR ( I ) 

COMMON  /EGC/  EG(  1 ) 

COMMON  /QC/  Q 1 1 ) 

COMMON  /DMASSC/  OMASS(l) 

DIMENSION  CI1) 

DIMENSION  RHI202 ) 

JMAX2  «  JMAX+2 
DO  500  J*l, JMAX2 
RM{ J )  •  L./VUJ) 

500  TEMU)  -  *139*EG( J) 

WR1TE<6,101) 

101  FORMAT  OHO  J, 6X,6HRAD1 US, 9X, 8H VELOCITY, 8 X, 7HDENSI TY»9X»4HTEHP , 

1  10X, 6HI NTENG, 8X, 8HPRESSURE, 8X,6HARTVI S, 10X»4HMASS  ) 

R«0 

WRITE  (6,102)  K,R(1),U(1),RH(1),TEM(1),EG(1)«PR(1),Q(1) , DMASS ( 1) 
1-1 
J-2 

20  WRITE  (6,103)  MAT(J) 

103  FORMAT  ( 13H0MATERI AL  14) 

10  K*J— l 

WRITE  (6,102)  K,R(J),U(J),RH(J),TEM(J),EG(J),PR(J) ,Q( J ) , DMASS ( J) 

102  FORMAT  ( 13, IPE15.5, 1P7E15. 3) 

J«J*l 

IF  ( J«GT» JHAT+3)  GO  TO  30 
IF  (J.LE.JREG(mi)  GO  TO  10 
l«IM 

IF  (I.LE.NREG)  GO  TO  20 
30  WRITE  (6,104) 

C 

104  FORMAT  (6H0  N,10X,4HT!ME  ,12X,2HDT  , liX,6HLAM6DA,5X,4HJLAM  ,6X, 
C 

1  5H0MEGA  ,4X,6HJ0MEGA,6X,5HGAMMA,4X,4HJGAM  ,3X,2HJ0,2X,5HJSTAR,2X, 
C 

2  4HJHAT  ,3X,2HIC  ) 

C 

RETURN 

END 


I 


I 
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SUBROUTINE  ALIBI  (for  the  MAP  version) 

ALIBI  is  a  routine  which  contains  a  dummy  entry  point  for  every 
subroutine  in  HAROLD.  This  routine  enables  the  problem  user  to  in¬ 
clude  only  those  subroutine's  which  he  needs  in  his  particular  problem. 
There  are  two  important  advantages  in  having  ALIBI: 

1.  Not  having  to  LOAD  all  subroutines  saves  space. 

2.  Not  having  to  LOAD  all  subroutines  saves  time. 

At  loading  time  the  machine  checks  through  its  reference  dictionary 
and  confirms  that  every  call  statement  has  something  to  call,  regard¬ 
less  of  the  fact  that  the  call  statement  may  never  be  executed.  WHEN, 
for  example,  in  EXEC  the  machine  finds  a  CALL  ROAIMP  statement  but 
there  is  no  ROAIMP  deck  included,  the  LOADER  will  refuse  to  LOAD  the 
problem.  If  you  were  doing  hydrodynamics  only,  you  would  use  sub¬ 
routine  ROA  and  not  ROAIMP.  ALIBI  will  provide  a  dummy  entry  point 
for  ROAIMP  and  you  would  not  have  to  include  the  deck.  For  this  reason 
ALIBI  must  be  loaded  LAST.  If,  on  the  other  hand, in  this  hydro  only 
problem, you  forgot  to  include  the  deck  ROA,  when  ROA  was  called,  you 
would  go  to  its  dummy  entry  point  in  ALIBI,  which  would  send  you  in 
then  to  IKAERR,  which  prints  the  message  "ALIBI  HAS  BEEN  REACHED," 

You  would  then  have  to  figure  out  which  deck  you  left  out. 

ALIBI  does  have  a  couple  of  smarts.  For  instance  there  are  some 
subroutines  which  are  always  called  but  do  not  necessarily  need  to  be 
present.  ZONSR  or  REGSR  are  examples.  These  routines  provide  the 
ZONE/REGION  source/sink  terms  and  are  called  by  CDR,  ROA  and  other 

subroutines.  If  there  are  no  sources  or  sinks  in  the  problem, 
the  dummy  subroutines  in  ALIBI  set  the  values  to  zero  and  do  not  go 
to  IKAERR.  In  FORTRAN  dummy  entry  points  can  only  be  created  by 
dummy  subroutines .  In  MAP  a  dummy  entry  point  can  be  created  by  means 
of  the  EXTERN  statement  unavailable  to  FORTRAN  users.  The  function 
of  ALIBI  is  now  assumed  by  a  set  of  dummy  subroutines  which  follow 
$IBLDR  ALIBI.  ALIBI  itself  exists  only  as  an  index  separating  the 
real  subroutines  from  the  dummys. 
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SUBROUTINE  CLNUP(I.ISSW5)  TO  SUBROUTINE  CLNUP(l.J) 

When  a  job  is  submitted  with  a  time  estimate,  the  machine  is  set 
to  kick  it  off  at  the  end  of  the  requested  time.  This  can  often  be 
in  the  middle  of  a  calculation,  the  results  of  which  could  be  lost. 

The  MAP  VERSION  of  CLNUP  would  check  the  interval  timer  for  overflow 
at  the  end  of  each  cycle.  If,  in  fact,  it  had  overflowed, CLNUP  would 
reset  it  to  allow  one  more  minute  and  then  take  a  history  edit,  print 
out  and  CALL  EXIT. 

This  routine  is  a  function  of  our  system  here  at  RAND — other 
installations  may  have  a  similar  system  subroutine,  in  which  case  the 
user  may  modify  HAROLD  to  use  it.  In  other  instances  no  such  facility 
exists,  with  the  consequence  that  no  extra  time  may  be  allcted.  The 
user  with  this  handicap  must  exercise  caution  to  provide  histories  as 
frequently  as  necessary  or  terminate  his  job  on  NF. 

SUBROUTINE  BCDCON (A)  (map  Version) 

Up  to  now  we  have  discussed  some  of  the  annoying  details  with 
which  the  FORTRAN  user  must  burden  himself.  The  difficulties  which 
the  loss  of  BCDCON  will  present  make  the  rest  of  them  vanish  like 
booze  in  a  dry  country. 

This  subroutine  is  the  most  crucial  link  in  the  chain  of  I/O 
flexibility.  Because  of  BCDCON  we  may  read  in  all  the  Generate  data 
cards  with  format  12A6  and  then  go  back  and  pick  up  bits  and  pieces 
of  information  from  this  card  and  translate  it  into  fixed,  or  floating 
point  numbers  or  Hollerith  characters,  as  we  choose.  BCDCON  is  the 
guts  of  GETLAE  and  CONVRT.  It  is  also  called  by  other  Generate  sub¬ 
routines  . 

Unfortunately,  BCDCON  is  a  RAND  modification  of  RWD,  the  IBM 
conversion  routine  which  is  included  in  the  IBSYS  package.  What 
BCDCON  does  is  the  following: 

1.  Sets  up  an  internal  file,  represented  by  TAPE  99. 

2.  Writes  its  argument  on  this  buffer  and  returns  you  to  its 
calling  subroutine. 

3.  The  calling  subroutine  then  reads  the  argument  from  this 
buffer  according  to  any  format  desired. 
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For  example,  GETLAB  calls  BCDCON  with  four  different  arguments  viz., 
CARD (3) ,  CARD (5) ,  CARD(8)  and  CARD(IO)  representing  the  image  on  the 
input  cards  from  Cols.  13-18,  25-30,  43-58,  55-60,  respectively. 

GETLAB  is  concerned  only  with  the  Hollerith  labels  in  Cols.  13-15, 
28-30,  43-45,  and  58-60,  respectively.  So,  if  we  are  trying  to  ascer¬ 
tain  the  contents  of  Cols.  28—30,  we  would  call  BCDCON  (CARD(5))  which 
would  dump  the  image  in  Cols.  25-30  onto  TAPE  99.  We  then  return  to 
GETLAB  which  reads  99  according  to  the  format  (3X,A3)  .  C0NVRT  works 
the  same  way  but  is  concerned  with  different  columns  and  fixed  or 
floating  point  numbers.  BCDCON  has  four  restrictions. 

1.  No  1/0  statements  may  appear  between  the  initializing  CALL 
BCDCON (X)  and  the  READ  99  statement  which  follows  the  call. 

2.  Only  one  logical  record  may  be  read  or  written. 

3.  The  argument  of  the  initializing  call  may  not  appear  in  the 
list  of  the  READ  statement  (e.g.,  if  we  call  BCDC0N(A)  we 
may  not  READ(99,A). 

4.  Only  one  READ  99  may  follow  a  BCDCON  call. 

If  the  users  cannot  come  up  with  a  routine  which  performs  this 
function, the  dire  consequences  are  as  follows: 

1.  The  Generate  data  cards  must  be  read  in  the  following 
format  (A6,  F6.0,  4(A3 ,E12.6)) .  All  fixed  point  numbers, 
such  as  J  on  the  region  card,  are  truncated  from  E12.6 

to  a  fixed  point  format. 

2.  All  routines  which  used  BCDCON,  GETLAB  and  C0NVRT  must  be 
modified  to  accommodate  the  next  fixed  format  and  these 
three  subroutines  will  be  omitted. 

In  effect  this  means  modification  of  all  subroutines  which  are  called 
as  a  consequence  of  testing  a  card  label.  Viz.,  STREAD,  CYCRED, 

TMREAD ,  RMREAD ,  GEOM,  EOSNRD ,  REGNRD,  BOUND,  SOURCE,  TMPRED ,  PERC, 
COMB,  We  have  done  this  for  you  by  creating  an  all-FORTRAN  monster 
but  have  added  the  above  notes  for  your  enlightenment  in  hopes 
that  perhaps  your  particular  system  already  has,  with  only  minor 
modification,  the  facility  to  accomplish  these  tasks. 
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SUMMARY 

In  the  FORTRAN  version  of  HAROLD: 

(I)  The  subroutines  GETLAB,  CONVRT,  BCDCON  are  eliminated. 

Their  functions  are  assumed  by  the  subroutines  themselves.  For 
example p  in  the  MAP  version,  we  would  read  the  wbf'le  data  card  in 
format  (12A6) .  If  we  wished  to  identify  the  variables  in  cols.  31-42, 
first,  we  would  use  BCDCON  and  GETLAB  to  identify  the  label  in  cols. 
28-30.  In  format  (12A6)  cols.  28-30  are  the  last  half  of  Card(5) . 

The  Hollerith  information  we  desire  is  converted  via  GETLAB  (28,30, A) 
and  BCDCON  into  format  (3X,A3)  and  tested  against  the  labels  sub¬ 
routine  HOLWD  has  stored  for  us  until  identification  occurs.  Second, 
CONVRT  (31, 42, A)  and  BCDCON  take  the  value  of  the  now  determined 
variable  which  is  located  in  cols.  31-42  and  stores  it  in  the 
appropriate  place.  In  the  FORTRAN  version  we  have  changed 
Read  1,  (Card (I) ,  1=1,12)  or  Read  1,  Card(12) 

1  Format  (12A6) 
to 

Read  1,  (Card(I) ,  1=1,10) 

1  Format  (A6,F6 .0) ,4(A3 ,E12 . 6) 

Card(l)  is  the  same  in  both  versions 

Card(2)  is  a  floating  point  number  in  FORTRAN 

Card(3)  represents  the  variable  label  in  cols. 13-15  in  FORTRAN 

Card(4)  represents  the  variable  value  in  cols. 16-27  in  FORTRAN 

Card(5)  represents  the  variable  label  in  cols. 28-30 

Card(6)  represents  the  variable  value  in  cols. 31-42 

Card(7)  represents  the  variable  label  in  cols. 43-45 

Card(8)  represents  the  variable  value  in  cols. 46-57 

Card(9)  represents  the  variable  label  in  cols. 58-60 

Card(10)  represents  the  variable  value  in  cols. 61-72 

FIELDN  has  the  same  function  in  FORTRAN  as  in  MAP.  I.e., 

FIELDN  *•  1  WLAB  =  Card (3) 

FIELDN  =  2  WLAB  =  Card (5) 

FIELDN  =  3  WLAB  =  Card(7) 

FIELDN  =  4  WLAB  =  Card  (9) 
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WLAB  is  tested  just  as  in  MAP  to  identify  the  variable.  Once  this  is 
accomplished  you  test  for  the  value  of  FIELDN  and  assign  the  contents 
of  the  appropriate  columns  to  be  stored  as  the  value  of  the  variable. 

To  illustrate: 

Suppose  you  are  reading  the  region  card  and  you  are  interested 
in  the  identity  and  associated  value  of  the  variable  in  cols.  28-30, 
the  value  of  FIELDN  at  this  point  will  be  2.  And  the  MAP  version 
instructions  will  be  the  following: 

CALL  GETLAB  (28,30  WLAB) . 

(GETLAB  will  call  BCDCON  which  will  take  Card (5)  and  convert  it 
via  format  (3X,A3)  to  the  Hollerith  label  on  cols.  28-30.)  WLAB  will 
be  tested  against  all  possible  variable  labels  which  can  appear  on 

a  region  card  until  a  match  is  found.  Let's  say  that  the  label  turned  ( 

out  to  be  "J="  we  would  then  call  CONVRT  (FIELDN,  1,  JREG (REGNO)) . 

Since  FIELDN=2  and  the  second  argument  is  1,  CONVRT  would  take  the 
contents  of  CARD (I) ,1=1,12,  extract  the  value  contained  in  cols. 31- 
42  and  have  BCDCON  convert  it  to  a  fixed  point  number  which  is  re¬ 
turned  to  REGNRD  as  JREG(REGNO) .  The  FORMAT  statement  which  accomplishes 
this  is  FORMAT (30X, 112) . 

The  FORTRAN  instructions  would  be  the  following: 

Since  FIELDN=2,  WLAB=Card(5) ,  it  is  no  longer  necessary  to  go  to 
GETLAB  and  BCDCON  as  the  format  of  Card (5)  is  (A3)  as  expected.  WLAB 
is  tested  just  as  in  the  MAP  version  and  when  a  match  is  found,  instead 
of  call  CONVRT  (I,J,A),  we  have  the  four  statements: 

If  (FIELDN. EQ.l)  JREG (REGNO)  =  Card(4) 

If  (FIELDN. EQ. 2)  JREG(REGNO)  =  Card(6) 

If  (FIELDN.EQ.3)  JREG (REGNO)  =  Card(8) 

If  (FIELDN. EQ. 4)  JREG (REGNO)  =  Card (10) 

In  our  example  JREG(REGNO)  =  Card(6)  or  the  number  in  cols.  31-42. 

As  you  can  see,  this  is  more  unwieldy  but  the  effect  is  identical. 

All  flow  charts  were  done  for  the  MAP  version  but  the  logic  remains 
unchanged.  WLAB  from  GETLAB  gets  replaced  by  WLAB  =  Card(N)  where 
N  =  3  if  FIELDN  =  1 
N  =  5  if  FIELDN  =  2 
N  =  7  if  FIELDN  =  3 
N  =  9  if  FIELDN  =  4 
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and  call  CONVRT (FIELDN , J ,A)  is  replaced  by  at  least  four  statements 
depending  on  the  subroutine.  Also  note  the  input  formats  in  the  flow 
charts  are  correct  for  the  MAP  version.  These  minor  differences 
should  not  concern  the  user  if  he  has  carefully  read  the  preceding 
section  and  uses  the  listings  as  his  final  arbiter. 

(2)  All  output  quantities  and  their  units  must  be  controlled 
in  detail  by  the  user  via  subroutine  PROUT.  All  input  units  must 
be  in  MMEGMS  (meters,  megagrams,  milliseconds). 

(3)  The  user  must  exercise  caution  in  the  timing  of  history 
edits  or  in  his  selection  of  NF  unless  he  has  a  system  facility  to 
compare  with  subroutine  CLNUP  which  is  in  the  MAP  version  only. 

(4)  Close  attention  must  be  given  to  the  data  card  format  in 
Generate.  See  page  121. 
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IX.  HOW  TO  RUN  "HAROLD"— A  PROGRAMMERS  POINT  OF  VIEW 


HAROLD  is  run  as  two  sequential  IBJOB's.  The  Generate  section 
is  run  first.  Starting  from  NS=0  it  creates  a  zero  cycle  on  the 
history  tape  which  contains  all  the  initial  conditions  of  the  zone 
variables,  and,  all  other  parameters  you  have  included  in  the  Generate 
data  package.  For  instance,  all  boundary  conditions,  step  source 
functions,  convergence  criteria,  etc.,  are  interpreted  in  the  Generate 
section  of  the  program  and  stored  on  the  history  tape. 

The  Execute  portion  of  HAROLD  is  where  the  work  is  done.  It 
starts  with  the  initial  conditions  established  by  Generate  and  pro¬ 
ceeds  to  calculate  and  output  per  user  specification.  It  is  run  as 
the  second  IBJOB. 

Since  the  Generate  package  contains  65  subroutines  and  the  Exe¬ 
cute  package  contains  74  (all  74  never  need  to  be  loaded  for  a  specific 
job),  the  physical  handling  of  HAROLD  can  become  extremely  unwieldy. 
What  we  have  done  here  at  RAND  to  alleviate  this  problem,  is  to  avail 
ourselves  of  the  IBM  UPDATE  and  IEDIT  facilities  in  the  following  way. 

All  binary  decks,  i.e.,  the  65  Generate  and  the  74  Execute  sub¬ 
routines  ,  have  been  updated  onto  a  tape .  By  means  of  the  IEDIT 
feature  we  select  only  those  decks  from  the  tape  that  we  need  for  a 
particular  job.  In  Generate  alone  this  is  a  reduction  from  a  card 
tray  containing  65  subroutines,  to  perhaps  72  control  cards. 

We  have  also  created  a  tape  containing  the  more  commonly  used 
equations  of  state.  Instead  of  manufacturing  your  own  deck  you  may 
simply  use  the  appropriate  control  cards  to  pull  the  equation  of 
state  of  your  choice  off  of  the  tape. 

On  a  continuation  run  there  is  an  even  simpler  option  available — 
the  copy  option.  If  the  problem  is  to  be  continued  with  no  changes 
in  the  constants  used  in  the  Generate  run,  and  the  copy  option  has 
been  used,  all  you  need  is  a  deck  consisting  of  four  control  cards 
followed  by  the  Execute  data  package  of  1  card  (or  26  cards  in  the 
MAP  version).  If,  however,  you  do  wish  to  change  some  of  the  initial 
constants  (for  instance  you  may  want  to  increase  C4  in  order  to  slow 


down  the  running  of  the  problem) ,  and  you  have  used  the  copy  option, 
all  you  need  are  four  control  cards  followed  by  the  appropriate 
Generate  data  cards  (in  the  example  just  mentioned  the  appropriate 
cards  would  be  the  START  card,  REGION  card  with  proper  identification, 
ENDATA  card),  a  $IBSYS  card,  and  the  four  control  cards  for  the  Exe¬ 
cute  portion,  followed  by  the  Execute  data  package  of  1  or  26  cards 
depending  on  the  version  you  use. 

On  the  following  pages  are  examples  of  the  deck  setups  for  a 
start  and  continuation  runs.  The  start  run  will  be  illustrated  by 
Test  Case  1,  the  continuation  run  will  be  illustrated  by  Test  Case  2. 
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CONTROL  CARDS 

Initial  Run  for  Test  Case  1  (all  FORTRAN  version) 

$  JOB  .  4193,HAR20F,P5980,5,30,50,C 

Initial  card  for  all  runs  at  RAND,  Used  for  accounting  purposes  and  also 
supplies  machine  operators  with  output  information. 

SCLOSE  S.SU07, REWIND 

SCLOSE  S»SU09t REWIND 

SCLOSE  S.SU10, REWIND 

To  insure  that  units  are.  properly  initialized. 

SIBJOB  GEN  MAP,C0PY*U10 

GEN  identifies  first  IBJOB  on  copy  tape  for  future  use  in  reload  program, 

MAP  yields  memory  map  which  can  be  useful  if  you  need  to  juggle  storage 
space  for  tabular  EOS.  Copy  tape  is  on  S.SU10. 

SFILE  *  FTCQ8. * ,U05» *, TYPE  1 , SINGLE , BLOCK* 128 ,LRL»128 ,RCT»1 

SFILE  *FTC12. ’ tU09» *»TYPE 1 t  SINGLE » 8L0C K *128 »IRL *128  »RCT*1 

In  order  to  save  space,  we  have  changed  the  standard  file  descriptions  of  U09  and 
U05  from  double  to  single  buffer  and  from  a  standard  block  size  of  256  to  128. 

As  a  consequence,  we  need  file  cards  to  describe  their  configurations.  U07  and  U06 
are  written  by  the  system  in  the  conventional  way  so  no  file  cards  are  necessary. 

$ IEDI T  U07  »  SRCM 

Initiates  the  search  of  the  reel  on  U07,  containing  binary  subroutines.  For 
the  following  decks  (COMSIZ  and  HOIiWD  must  be  loaded  first  and  second  respectively 
for  they  are  never  executed  and  contain  the  dimensions  and  BCD  labels  of  all 
zone  variables) . 

SIBLDR  COS  I  ZG 
SIBLDR  HOLWD 
$  I  EDI T  IN 

Allows  the  user  to  insert  any  source  or  binary  decks  which  he  might  want  to  add. 
(This  usually  means  his  own  equations  of  state  but  can  include  any  subroutine  he 
might  want  to  modify.)  If  you  want  to  use  equations  of  state  which  are  on  the  EOS 
tape,  instead  of  $IEDIT  IN  you  would  use  $IEDIT  U06,SRCH  followed  by  the  appropriate 

$IBFTC  cards  and  ending  with  $IBLDR  ALIBI.  Any  AIR  EOS  labeled  $IBFTC  AIBO  _ 

from  U06  requires  the  data  from  $IBMAP  AIDATA  on  U06.  Thus,  the  AIR  EOS  is  not 
available  to  the  all-FORTRAN  user  without  some  alteration  in  the  reading  in  of  the 
appropriate  constants. 

SIPLOR  GMAIN 
SIBLDR  GENRAT 
SIBLOR  STRfc'AO 
SIBLDR  CYCREO 
SIBLOR  TMREAO 
SIBLDR  GEOM 
SIBLDR  RMREAD 
SIBLDR  EOSNRD 
SIBLDR  REGNRD 
SIBLDR  ZDNGEN 
SIBLDR  PEKG 
SIBLDR  FINOC 
SIFLDR  SOURCE 
SIBLDR  ROUND 
SIBLDR  COMB 
SIBLDR  TMPRO 
SIBLDR  PERC 
SIBLDR  FP  100 1 
SIBLDR  FE 1001 
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SIEDIT  U07.SRCH 

SIBLDR  RESTRT 

SIBLOR  REOST 

SIBLOR  ZNGFT 

SIBLOR  GRIOGN 

SIBLDR  ANEQS 

SIBLDR  GTVARG 

$  I BLDR  GVRT9G 

SIBLOR  GETTV 

SIBLOR  JHTU 

SIBLOR  IKAERR 

SIBLDR  ALIBI 

SIBLDR  FPIOOO 

SIBLOR  FPlOOl 

SIBLOR  FP 1 002 

SIBLDR  FPI003 

SIBLOR  FP 1004 

SIBLDR  FP 1005 

SIBLOR  FEIOOO 

SIBLOR  F£ 1001 

SIBLOR  FE 1002 

SIBLDR  FE 1003 

SIBLDR  FE 1004 

SIBLDR  FE 1 005 

SIBLOR  FX 1 000 

SIRLDR  FK 1001 

SIBLOR  PK 1002 

SIBLDR  FK 1 003 

SIBLDR  FK 1004 

SIBLOR  FK 1 005 

SIBLDR  OROA 

SIBLOR  OPFT 

SIBLOR  DTSR 

SIBLOR  DROAXP 

SIBLDR  DTSRXP 

SIBLDR  OCDR 

SIBLDR  DROAMP 

SIBLDR  DROB 

SIPLDR  OROC 

SIPLCR  DRO I 

SIBLOR  DROD 

SIBLOR  ORGE 

SieLDR  DTSRMP 

SIBLDR  ORBND 

SIBLOR  DPBNO 

SIBLOR  OZNSRF 

SIBLOR  ORGSRF 

SENTRY  GMAIN 


For  $IEDIT  U07,SRCH: 

$IBLDR  "deck  name"  is  a  flag  to 
the  IEDIT  routine  to  find  the 
deck  called  "deck  name"  on  the 
master  file.  If  the  $IBLDR  cards 
are  arranged  in  the  same  order  as 
the  binaries  on  the  master  file, 
time  will  be  saved. 


You  may  include  any  information  you  may  want  for  documentation  purposes 
between  $ENTRY  GMAIN  and  the  start  card.  The  only  restriction  is  there 
must  be  a  data  card  with  an  (16)  format  (in  cols. 1-6)  to  indicate  how 
many  cards  are  used  for  this  documentation  purpose. 


Data  card  with  the  (16)  format  to  indicate  how  many 
documentation  cards  follow  up  to  the  START  card.  A 
$  sign  may  not  be  used  in  column  1  or  any  of  the  documenta¬ 
tion  cards. 
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HAROLD  TEST  1. 
IDEAL  GAS 


ECtiATIGNS  OF  STATE  FOR  THE  GENERATOR. 

This  is  the  source  deck 
corresponding  to  the  binary 
deck  $IBLDR  FP1001. 

This  is  the  source  deck 
corresponding  to  the  binary 
deck  $IBLDR  FE1001. 


FUNCTION  FP1C01(E,V) 
FP 100 1=  .4*E/V 
RETURN 
END 

FUNCTION  FE 1001 ( E  » V ) 
F£ 1001=  .139*6 
RETURN 


EQUATION  OF  STATE  FOR  THE  EXECUTOR 

SUBROUTINE  PET(  HAT  »  T » V « P « E « J  »C  )  This  is  the  source  deck 
P  =  .  4*E/V  corresponding  to  the  binary 

RETURN  deck  $IBLDR  PET  20. 

END 

Generate  Data  for  Test  Case  1. 


START 

1NS=0. 

NF= 

614, 

HISTOR 

0T= 

.025 

CT= 

I. 00 

PRINT 

ND= 

1. 

NC  = 

3. 

ND= 

7. 

NC= 

10. 

N0= 

40. 

NC= 

250. 

N0= 

13. 

NC= 

263. 

ND= 

1. 

NC  = 

264. 

ND= 

50. 

NC  = 

614. 

ENERGY 

ND= 

1000. 

NC  = 

10000. 

TIME  S 

0T= 

.0001 

DT= 

.0002 

RMIN 

R= 

1. 

REGION 

2001 J= 

30. 

0R= 

.01 

T  = 

.0293 

RH= 

.0011 

Cl  = 

6. 

C2  = 

0. 

C3  = 

1.6 

C4= 

16. 

C5= 

0. 

BOONDA 

0P  = 

.1 

COMB  IN 

J0= 

5. 

J  S= 

C. 

JM  = 

23. 

DR= 

-. 76923 E- 02 

ZTEMPE 

Zl  = 

0. 

Z  2= 

.0001 

JL  = 

29. 

PERCEN 

xi= 

0. 

X2= 

c. 

X3= 

0. 

X4= 

.4  -05 

X5  = 

.125 

X6= 

.1 

-03 

ENDATA 

-  Signifies 

end  of  Generate 

data  and 

end  of  Generate  section  of 

HAROLD; 

the  $IBSYS  card  transfers  control  to 

the  system  monitor 

and  prepares 

for 

new 

control  cards.  This  card  allows  2  $IBJ0B's  to  be  run  under  the  same  $IJ0B 
instead  of  as  2  separate  $JQBS. 
ill  SYS 

The  following  cards  exactly  parallel  the  arrangement  of  control  cards  in  Generate. 
iCLOSE  S.SU07 

SIBJOB  EXEC  MAP tC0PY=UI0 

JFILE  "FTCC8. « ,UOS,*,TYPEIf S INGLE , BL0CK  =  128 ,LRL= 128 , RCT=  l 


1 


— i _ _ 
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SFILE 

SIEDIT 

SIPLOR 

COSIZE 

SIBLOR 

EHAIN 

SIBLOR 

FXEC 

SIPLOR 

CLNUP 

SIBLOR 

REOST 

SIBLOR 

ESTAB 

S I  PL  DR 

SFT 

SIELDR 

HYD 

SIBLOR 

TSR 

SIBLDR 

JHTU 

SIBLOR 

POR 

SIBLDR 

PPR 

SIBLOR 

HIST 

SIBLOR 

ECHECK 

SIELOR 

ANEOS 

SIBLOR 

GTVARE 

SIPLDR 

GVRTBE 

SIBLOR 

IKAERR 

SIFDIT 

*  FTC12.'tU00t*,TYPE 1 , S I NGLE , BLGCK= 128 ,LRL=128 ,RCT= 1 
U07  t SRCH 


IN 


The  same  comments  apply  here  as  for  the  Generate  section. 
Special  decks  are  inserted  here  as  in  Generate. 


SIRLDR  ROA 
SIBLOR  REGSR 
SIELOR  ZONSR 

SIPLOR  PROUT  -  Good  only  for  this  test  case. 

SIBLOR  CZR 
$  I ELOR  PFKE 
SIRLDR  FINCC 
SIPFTC  RBOUNO 

SUBROUTINE  RBOUNO ( TMDUM ,RH0 ) 

COMMON  / I KA?/  ERS(6,10),  ES(6,10),  TMRS(6,10),  TMS(6,10),  RS(IO), 

1  JS(IO),  NRSI10),  NZ  S 1 10 ) ,  RRGI15),  JREGU5),  CU15),  C2(l5)t 

2  C3 ( 1 5 ) *  C4(  15) »  C5115),  E0115),  EMINI6),  EMAX ( 6 ) »  KMINI6), 

3  KM AX t  6 ) ,  PMIN ( 6) «  PMAX16),  TMIN(6),  TMAXI6),  UMINI6),  UMAX (6)  , 
4TEMINI 6) ,  TEMAXI 6) ,  TKMINI6),  TKMAXI6),  TPMINI6),  TPHAX ( 6 ) »  NKMAX, 

5  TTMINI 6) t  TTMAXI6),  TUMI N ( 6) »  TUMAXI6) ,  NEMIN,  NEHAX,  NKM IN, 

6  NPMINt  NPMAX i  NTMIN,  NTMAX,  NUMIN,  NUMAX,  NRSRCE ♦  NZSRCE. 

7  JO,  JOS,  JOM,  ORC,  Zl,  Z2 ,  JL,  XI,  X2,  X3,  X4,  X5,  X6,  NS,NF, 

8  UNCGS,  UNMKS,  TM,  DT,  DTP,  JSTAR,  JHAT,  JMAX,  DELTA,  REGNO,  JZ, 

9  NR  EG,  NEOS,  RMIN,  RMAX,  IRAD 
COMMON  /VLC / VL ( 1 ) 

RHO  =  1 . / VL ( JMAX ) 

RETURN 

END 

SIBLOR  PET2C 

SIBLOR  FP 1001 

SIBLOR  FE1001 

SIFDIT  U07 , SRCH 

SIBLOR  ALIBI 

SIBLOR  FP 1000 

SIRLDR  FP 1 00 1 


l 


V 
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S1BLDR  FP 1002 
SIBLDR  FP 1003 
SIBLOR  FP1004 
SIBLDR  FP1005 
SIBLOR  FE 1000 
SIBLDR  FE 1001 
SIBLDR  FE 1002 
SIBLOR  FE 1003 
SIBLOR  FE 1004 
SIBLOR  FE 1005 
SIBLOR  FK 1000 
SIBLOR  FK1001 
SIBLOR  FK 1002 
SIBLOR  FK  1003 
SIBLDR  FK 1004 
SIBLOR  FK 1005 
SIBLOR  OROA 
SIBLOR  DPET 
SIBLOR  DTSR 
SIBLDR  DROAXP 
SIBLOR  OTSRXP 
SIBLOR  DC DR 
SIBLDR  DROAHP 
SIBLDR  DRUB 
SIBLOR  DROC 
SIBLOR  ORDI 
SIBLOR  DROD 
SIRLDR  OROE 
SIBLOR  DTSRMP 
SIBLDR  DRBNO 
SIBLDR  DPBND 
SIPLDR  DZNSRF 
SIBLDR  ORGSRF 
SENTRY  EMAIN 

0  1TEST  1.  HYDRO  ONLY.  IDEAL  GAS 
In  the  MAP  version  of  HAROLD  a  25  card  packet  (called  the  output  description 
deck)  which  contains  variable  output  information  follows  immediately.  (See 
Test  Case  2  which  uses  this  25  card  packet.)  In  the  all-FORTRAN  version  the 
user  must  write  his  own  output  routine  called  PROUT,  and  the  output  descrip-  i 

tion  deck  is  omitted.  j 

SIPSYS 

SCLOSE  S.SU07, REWIND 

SCLOSE  S.SU09, REWIND 

SCLOSE  S.SU10, REWIND 

SIBSYS  ENDJOB  TOTAL  NUMBER  OF  CARDS  IN  YOUR  INPUT  DECK 


_ \ 


-376- 


Contlnuation  Run  for  Test  Case  2. 


4  JOB 
♦CLOSE 
4I6JOB 
♦RELOAD 


4193*HAR27B»WA?950» 10»0«T5»C 

S.SU06 

NOSOURCE 

UQ6  »NAHE*GEN»  SRCH 


The  following,  with  the  exception  of  the  START  and  ENDATA  cards  which  must 
always  be  present,  are  the  cards  you  need  to  change  the  constants. 


start 

NS- 

131NF* 

5000 

PRINT  OUT 

NO- 

131NC- 

131ND- 

ND- 

30NC- 

5000 

ENERGY  EDIT 

MO¬ 

131NC- 

131NO- 

NO- 

30NC- 

5000 

29NC- 

29NC- 


REGION  1C5-  10. 

REGION  2C5*  10. 

ENDATA 

Signifies  end  of  first  job.  If  no  constants  need  be  altered  you  do  not  need 
the  Generate  part  at  all,  and  to  continue  running  the  problem  replace  the 
$XBSYS  card  with  the  $J0B  card  and  turn  in  the  following  31  cards.  If  you 
wish  to  continue  from  the  last  cycle  on  the  history  tape  set  NSTART=  to 
some  larger  number,  say,  NF. 


♦I8SYS 

♦CLOSE  S.SU06 

♦IB JOB  NOSOURCE 

♦RELOAD  U06.NAHE-EXEC* SRCH 


131  7  10/7/66-MAR.  TEST  CASE  2-S.P.-IHP. 


RADIUS 

FEET 

6 

RADAVG 

PVELOC 

FT/SEC 

1 

PRESUR 

PSI 

6 

DENSTY 

KG/M3 

5 

INTENG 

CAL/GH 

2 

TEMPKELVIN 

T EHAVG 

3 

HASS 

DYNPRS 

PSI 

7 

ARTVIS 

DELRAD 

PS! 

8 

DEPLET 

LMNSTY 

KT/SEC 

9 

ROSHFP 

ROPCTY 

FEET 

10 

EHSHFP 

NETPHR 

CAL/SC 

11 

BBPOVm 

RALORT 

RAOLOS 

MOPCTY 

CAL/SC 

12 

♦ibsys 

ENDJOB 
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Procedure  Cards  for  I  and  II 


7040/7044 

.EDP  PROCEDURE  90 

PAL  NO. 


7040/7044 

EDP  PROCEDURE 


PAL  NO. 


FOR  OPERATOR'S  USE  ONLY! 


FOR  OPERATOR'S  USE  ONLY: 


4193 _ HAR20F _ P5980  4193 _ HAR27B _ WA795Q 

JOB  NO.  RUN  1.0.  MAN  NO  JOB  NO.  RUN  i  0.  MAN  NO. 


ABSOLUTE 

CUTOFF 


5  30  00 

TOTAL  TIME  TOTAL  CAROS  TOTAL  PAGES 
(MUST  AGREE  WITH  JOB  CARDI 


ABSOLUTE 

CUTOFF 


TOTAL  TIME 


0 _ 75 

TOTAL  CARDS  TOTAL  PAGES 
(MUST  AGREE  WITH  JOB  CARO) 


QsiMSCRIPT  4020  □siMSCRIPT  Q]  4020 


[J  OVER  FOR  ADDITIONAL  INSTRUCTIONS  EH  0VER  F0R  ADDITIONAL  INSTRUCTIONS 


If  tabular  equation  of  state  are  used,  the  reel  containing  the 
tabular  equation  of  state  must  be  hung  on  U05  for  all  runs, 
initial  and  continuation. 


i 
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TEST  CASE  I 


The  first  test  case  has  thirty  identical  zones  with  AR=.01, 
containing  ideal  gas.  The  equation  of  state  used  is  analytic. 

Since  the  problem  is  hydrodynamics  only,  the  equation  of  state  may 
be  of  the  form  P(E,V)  and  T(E,V),  and  we  have  elected  to  use  this 
form.  (Temperature  is  not  necessary  in  hydrodynamics -only  calcula¬ 
tions  and  we  intend  to  conserve  computing  time  by  not  calculating 

temperature  during  execution.)  The  zones  have  an  initial  tempera- 

3 

ture  of  293  degrees  Kelvin,  and  an  initial  density  of  ,0011  gm/cm  . 

k  0 

The  initial  At  is  .0002  msec,  and  At  =  .0001  msec.  All  input 

will  be  in  MMEGMS,  the  units  in  which  the  problem  is  calculated. 

The  geometry  is  plane  geometry.  R-.  must  be  non-zero  since  there  is 

U  0 

a  continuous  left  hand  boundary  condition  of  P  ,  =>  .1  (  1  kbar) . 

0 

The  choice  of  =  1.  is  arbitrary.  We  will  expect  a  shock  front  to 
move  from  left  to  right  through  the  thirty  zones.  We  wish  to  begin 
combining  and  adding  zones  when  the  shock  front  reaches  the  29th 
zone.  The  first  two  zones  to  be  combined  will  be  zones  6  and  7  and 
the  zone  added  will  have  a  Ar  of  .033  times  RA.  Zones  will  be  com¬ 
bined  out  to  zone  23  at  which  time  zones  1  ancl  2  will  be  combined. 

Since  temperature  will  not  be  calculated  at  every  cycle,  we 

/\ 

must  use  a  velocity  condition  to  determine  j.  All  zones  whose  left 
hand  boundary  has  a  velocity  greater  than  .0001  will  be  calculated. 

XI,  X2,  X3  and  C5  are  0  since  they  are  not  used  in  hydrodynamics - 
only  calculations  and  X4,  X5,  X6,  Cl,  C2,  C3  and  C4  will  have  our 
usual  values. 
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The  first  40  cards  are  for  documentation  of  the  problem.  They 
are  read  and  printed  to  insure  that  a  record  of  the  equation  of  state 
is  included  in  the  output. 

START  Card 

NS  is  0  since  we  are  generating  a  new  problem.  NF  is  614. 

Since  the  problem  is  hydrodynamics  only  IHYD  is  set  non-zero. 

HISTORY  EDIT  Card 

History  edits  are  desired  every  50  cycles. 

PRINT  OUT  and  ENERGY  EDIT  Cards 

The  first  five  cycles  are  to  be  printed,  then  every  50  cycles 
until  the  f’rst  doubling  of  zones,  then  every  50  until  the  end  of 
problem. 

TIME  STEP  Card 

The  first  DT  must  be  .0001  (At^)  and  the  second  DT  must  be 
.0002  (At  )  since  the  order  of  these  two  is  significant. 

GEOMETRY  Card 

No  GEOMETRY  card  is  included  si-ace  plane  geometry  is  desired 
and  is  assumed  unless  otherwise  specified. 

RMIN  Card 

Rq  =  1 .  So  this  card  is  required. 

EOS  Card 

There  are  no  tabular  equations  of  state  so  this  card  is  omitted. 

REGION  and  ZONE  Card 

We  assign  the  analytic  equation  of  state  the  number  2001  since 
we  will  use  the  form  P(E,V),  T(E,V)  for  the  equation  of  state  (any 
number  between  2000  and  2005  would  have  been  alright) .  All  zones 
in  the  region  are  similar  so  they  may  be  defined  completely  on  the 
REGION  card.  No  ZONE  card  will  be  required.  Any  two  of  the  three 
numbers  JT_n,  fRTD  and  AIR  are  sufficient  to  define  the  zoning. 

IK  JLK  IK 

Since  JT^  =  30  and  A  !R  =  .01  are  given  we  will  input  these  two 
with  the  labels  J=  and  DR=.  T  and  P  are  sufficient  to  define  the 
remaining  zone  variables  and  are  input  with  the  labels  T=  and  RH=. 

T  is  input  as  .0293  since  the  units  on  MMEGMS.  Since  E0,  C2  and  C5 
are  to  be  zero,  we  need  only  input  Cl,  C3  and  C4  to  complete  the 
REGION  card. 
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ZSOURCE  and  RSOURCE  Cards 

There  are  no  energy  sinks  or  sources  in  the  problem, so  these 
cards  are  not  required. 

BOUNDARY  Cards 

We  have  a  boundary  condition  P  =  .1.  We  specify  "MIN"  on  the 
card  to  indicate  that  the  boundary  condition  is  at  and  use  the 

label  P=  to  specify  that  it  is  a  pressure  boundary  condition.  Since 
the  boundary  condition  is  continuous  throughout  the  problem, we  need 
specify  only  the  value  of  P.  (The  TM,  the  time  at  which  to  change 
values  of  the  step  function,  is  automatically  set  very  large.) 

COMBINATION  Card 

j  »  5,  jos  =  0  and  jom  -  23  and  these  are  input  through  the 
labels  J0=,  JS=  and  JM=  respectively.  The  M  of  the  zones  to  be 
added  is  a  percent  of  rather  than  the  actual  M  of  the  zone  to  be 
added  so  it  is  entered  as  -.033.  The  label  DR=  is  used. 

ZTEMPERATURE  Card 

Z2  is  chosen  as  .0001  and  j£  is  chosen  as  29.  Z1  is  not  input 
since  it  is  not  used  in  hydrodynamics  only  calculations. 

PERCENTS  Card 

XI,  X2  and  X3  are  omitted  since  they  will  not  be  used.  X4, 

X5  and  X6  are  assigned  their  usual  value. 

ENDATA  Card 

The  ENDATA  card  must  always  occur  last. 

Two  function  type  subroutines  are  required  for  the  inputting 

of  the  equations  of  state  P(E,V)  and  T(E,V),  P(E,V)  is  included 

through  the  subroutine  FP100I  and  T(E,V)  is  included  through  the 

subroutine  FE1001.  1001  is  used  since  2001  was  the  material  number 

assigned  to  the  material  on  the  REGION  card.  The  equations  of 

4E 

state  are:  P(E,V)  =  —  and  T(E,V)  =  .139  E. 
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INPUI  DATA  AND  SUBROUTINES  INCLUDED  FOR  EXECUTE  PART  OF  TEST  CASE  1 

Restart  Card:  This  problem  will  be  started  at  cycle  0  so  NS 

is  0.  Hydrodynamics  only  is  desired  so  IRAD  is  1. 

The  variables  desired  as  output  are  R^,  Uj ,  Pj_^»  T^_^, 

P,  li  Qi  i  and  £m.  ,  in  that  order.  All  variables  will  be  printed 
J  “•?  j  "i  J  “5 

in  MMEGMS,  the  problem  units.  In  RAND  version  this  output  is 
defined  by  the  output  description  deck  (p.253) 5  in  FORTRAN  version 
by  PROUT  (p .362) . 

Since  the  equations  of  state  are  of  the  form  P(E,V)  and  T(E,V), 
the  subroutine  PET  is  included.  T  will  only  be  calculated  at  output 
time  rather  than  at  every  cycle  since  the  problem  does  not  require 
it.  The  expression  for  P(E,V)  is 


P  =  .4E/V. 


COUT7,  the  COUT  routine  corresponding  to  temperature,  must  be 
altered  to  calculate  T  from  E  since  it  is  not  calculated  at  every 
cycle.  The  expression  for  T(E,V)  is 

T  =  . 139E . 


* 

The  C0UT7  routine  is  unavailable  in  all-FORTRAN  versions.  In 
all-FORTRAN  versions,  this  manipulation  is  carried  out  in  PROUT. 


F 


CHECK  LIST 


GENERATOR 

1.  Correct  equations  of  state? 

If  tabular,  mount  TABCOE  tape  on  S.SU05. 

2.  Correct  JHT  subroutine? 

Deck  JHTT  if  Z2  is  a  temperature 
Deck  JHTU  if  Z2  is  a  velocity 

3.  a.  COMSIZ  and  HOLWD  first  and  second, 
b.  ALIBI  last  (RAND  version)? 

4.  History  tape  on  S.SU09. 

*5.  Copy  tape  on  S.SU10,  binaries  on  S.SU07. 

*6.  Analytic  equation  of  state  tape  on  S.SU06. 

EXECUTOR 

1.  Correct  equations  of  state? 

If  tabular,  mount  TABCOE  tape  on  S.SU05. 

2.  a.  COMSIZ  first? 

b.  ALIBI  last  (RAND  version)? 

3.  History  tape  on  S.SU09. 

4.  If  hydrodynamics  only,  correct  PET  deck? 

correct  JHT  deck? 

5.  All  necessary  COUT  decks  present  (RAND  version)? 

6.  For  hydrodynamics  only,  ROA  and  TSR  present? 

7.  For  explicit  radiation,  CDR,  ROAEXP  and  TSREXP  present? 

8.  For  implicit  radiation,  CDR,  ROAIMP,  ROB,  ROC,  RDI,  ROD, 

ROE,  TSRIMP  present? 

9.  For  non-step  sinks  and  source,  RGSRFN  and/or  ZNSRFN  present? 

10.  For  non-standard  combining,  PBOUND  and  RBOUND  present? 

*11.  Copy  tape  on  S.SU10,  binaries  on  S.SU07. 

*12.  Analytic  equation  of  state  tape  on  S.SU06. 


*5  and  11  apply  only  if  you  are  using  the  copy  option;  6  and  12 
apply  only  if  you  are  getting  your  analytic  equations  of  state 
from  a  tape. 
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X.  CONCLUSIONS  AND  RECOMMENDATIONS 


The  objective  has  been  to  anticipate  and  accommodate  more  or 
less  automatically  a  number  of  frequently  used  variants  in  formulat¬ 
ing  problems.  The  inevitable  consequence  of  such  generality  is  to 
confront  the  user  with  much  more  code  and  more  subroutines  than  any 
one  problem  is  likely  to  need.  We  hope  that  we  have  struck  a  useful 
balance  between  complete  generality  and  direct  and  bare-bones  simplici¬ 
ty,  but  only  continued  use  and  modification  can  sharpen  the  tool. 

The  learning  time  for  such  a  complex  set  of  program  alternatives 
is  likely  to  be  several  months,  during  which  time  the  test  problems 
and  other  trial  runs  should  provide  the  "student"  with  an  appreciation 
of  the  possibilities,  as  well  as  of  the  pitfalls.  There  is  no  sub¬ 
stitute  for  careful  attention  to  results.  After  selecting  printout 
variables  and  forms,  it  is  foolish  not  to  spend  the  time  scanning 
every  number.  It  is  a  rule  born  of  sad  experience  that  one  should 
understand  and  explain  every  significant  change  in  every  variable. 

Where  a  "mysterious"  number  occurs,  if  overlooked  or  ignored,  much 
machine  time  and  many  pages  of  useless  output  may  be  cranked  through 
before  the  seriousness  of  an  error  can  be  fully  appreciated.  To  this 
end,  we  have  found  it  helpful  to  run  long  problems  in  short  sections, 
reviewing  the  results  of  each  partial  run,  making  selections  of  more 
appropriate  stability  or  zone-doubling  constants,  and  re-running  or 
hand  checking  as  indicated. 
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Appendix 

GLOSSARY 


Subroutine 


TSR 

AMBDA 

The  artificial  viscosity  time  stability 
conditions  =  Lambda  (see  C4) . 

GETTV 

AMP 

Convergence  criterion  for  AT  and  AV 
in  GETTV.  If  (AT2  +  AV2)  <  amp  they 
are  considered  to  have  converged. 

BOUND 

BDRYSW 

Has  2  values :  1  if  minimum  boundary 
condition;  2  if  maximum. 

BOUND 

BTYPE 

Has  5  values:  1  =  E,  2  =  K,  3  =  P,  4  = 

T,  5  =  U,  corresponding  to  the  function 
which  has  a  minimum  or  maximum  boundary 
condition. 

GMAIN 

C 

Limit,  local  variable  in  CZR,  location 
of  first  coefficient  in  tabular  EOS. 

HYD 

Cl(15) 

Amplitude  of  quadratic  term  of  artificial 
viscosity  equation  in  HYD  -  input  on 
region  card. 

HYD 

C2(15) 

Amplitude  of  linear  term  of  artificial 
viscosity  equation  in  HYD  -  input  on 
region  card. 

TSR 's 

C3(15) 

Multiplicative  constant  in  Omega,  the 

Courant  stability  condition;  C3=largest 
expected  effective  specific  heat  (y=1  + 
PV/E)  (see  text  Sec.  II)  At2  ~  1/C3. 


Input  on  region  card. 


TSR's 

C4(15) 

Multiplicative  constant  in  Lamda  -  the 
artificial  viscosity  stability  condition; 

C4  >  4C1  -  input  on  region  card  (see  text) . 

tsrimp, 

TSREXP 

C5(15) 

Multiplicative  constant  in  Gamma,  the 
radiation  diffusion  stability  condition; 

C5  =  1  for  explicit:  for  implicit  radiation 
may  have  any  value  -  input  on  region  card 
(see  Eq.  51  of  text). 

REGNRD 

C1SWCH 

Set  non-zero  if  Cl  stability  constant 
is  input  on  region  card. 

REGNRD 

C2SWCH 

Set  non-zero  if  C2  is  input  on  region 
card. 

REGNRD 

C3SWCK 

Set  non-zero  if  C3  is  input  on  region 
card. 

REGNRD 

C4SWCH 

Set  non-zero  if  C4  is  input  on  region 
card. 

REGNRD 

C5SWCH 

Set  non-zero  if  C5  is  input  on  region 
card. 

\ 
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ROC 

CAPC(J-fl) 

n+l 

”  C,  , .  Coefficient  for  forward-backward 
substitution;  see  Eq.  20. 

ROC 

CAPJ(Jfl) 

ryj.1 

-  Jj  .  See  Eq.  28. 

-  Kj^l.  See  Eq.  23. 

ROC 

CAPK(J+1) 

ECHECK 

CKC 

The  ratio  of  steradians  to  4184.6 
jerks/kiloton. 

ECHECK 

CKE(I) 

Net  internal  energy  summed  over  all  zones 
in  a  region,  i.e.,  the  internal  energy 
minus  the  initial  energy. 

ECHECK 

CKES 

Internal  energy  summed  over  all  regions 
in  the  problem. 

ECHECK 

CKK(I) 

The  kinetic  energy  of  a  region. 

ECHECK 

CKKS 

Kinetic  energy  summed  over  all  regions 
in  the  problem. 

ECHECK 

CKW(I) 

The  sum  of  the  internal  energy  (CKE)  and 
the  kinetic  energy  (CKK)  for  a  region. 

ECHECK 

CKWS 

The  total  energy  of  the  problem. 

PPR; ECHECK 

CKY 

Energy  loss  by  radiation  thru  a  region 
interface  (between  materials) . 

ECHECK 

CKYO 

CKY(IR-l)  ;  if  IR=>1,  CKY0=0. 

PEK 

COE (I) 

COMSW 

EOS  coefficients  from  FINDC. 

Set  non-zero  if  combination  card  is 
encountered  in  data  deck. 

CYCRED .EXEC , 
PPR 

CYCRED .EXEC, 
PPR  * 

CYCRED ,EXEC , 
PPR  * 

CYCRED .EXEC, 
PPR  *  , 

CTCK(6) 

See  DTCK(6). 

CTH(6) 

See  DTH(6) . 

CXP(6) 

See  DTPR(6). 

CYCSW 

"1"  if  history  edit  card;  "2"  if  print 
out  card;  "3"  if  energy  edit  card  has 
been  read. 

CDR.ROA 

D(J+1) 

=Djt|.  Depletion  term  (see  Eqs,  34,74). 

PEK 

DE 

A  term  in  CAPC(J+1) ,  Eq.20. 

CDR 

DELER 

^R^1  -  RjtJ  =  M. 

CDR 

DELIL 

=  DELER/FLAM  =  AR/\. 

GEOM 

DELTA 

Has  3  values:  1  =  plane  geometry,  2  = 
cylindrical  geometry,  3  =  spherical 
geometry. 

CZR 

DET 

Term  used  in  solving  a  quadratic,  de¬ 
fined  in  CZR  subroutine. 

ROB 

DKDMM(J+1) 

=  DKDMTM. 

J 


1 


I  p*aT 
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ROB 

DKDMP(J+1) 

T 

»  %(- 3 *  DKDMTM. 
j 

ROB 

DKDMTM 

=£m.  DKMP  +  An.  ,  DKMM  (amounts  to 

3+h  j  -h 

Am  at  V  ) . 

J  6T.  j 

ROB 

DKMM 

a  ML-  at  y 

6T.  at  Vj-r 

ROB 

DKMP 

=  at  V 

8ij  j+i' 

RDI 

DL 

6L,  a  measure  of  change  in  luminosity 
from  previous  iteration,  i.e.,  measure 
of  convergence t  see  Eq.  31. 

DMASS (J+l) 

DMESS(J+1) 

=fim..V(Sn,J.4+£mj+4). 

ZONGEN ,REGNRD 

DMVAL 

Region  mass . 

ZONGEN ,REGNRD 

DMZAL 

Zone  mass. 

PER 

DP 

Sife 

ii 

DR 

Input  value  of  delta  radius  on  zone  or 
region  card. 

COMB 

DRC 

The  delta  radius  of  the  zones  to  be 
added.  If  it  is  negative,  its  absolute 
vclue  is  the  percentage  of  R(JMAX) 
which  is  to  be  used  as  the  £R  of  the 
added  zone. 

REGNRD ,ZNGET , 

DRSWCH 

Set  non-zero  if  the  increment  of  the 

GRIDGN 

radius  is  input  on  region  card. 

DRZWCH 

Set  non-zero  if  the  radial  increment 
is  input  on  zone  card. 

TMREAD 

DT 

Initial  half  time  step  input  on  time 
step  card  as  the  first  DT  -  is  modified 
according  to  appropriate  stability  con¬ 
ditions  in  the  corresponding  TSR  routine 

CYCRED ,EXEC , 

DTCK(6) 

CTCK(6)  bles  of  time  intervals  and 

PPR 

change  t  as  for  energy  edits,  i.e.,  an 
energy  edit  will  occur  every  DTCK(I) 
milliseconds  until  CTCK(I)  milliseconds. 

RDI,  ROE 

DTEM 

6T,  a  measure  of  change  in  temperature 

from  previous  iteration,  i.e.,  measure 
of  convergence.  See  Eq.  33. 


1 
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CYCRED,  EXEC, 
PPR 

DTH(6) 

CTH(6) ,  tables  of  time  intervals  and 
change  times  for  history  edits,  i,e.,  a 
history  edit  will  occur  every  DTH(I) 
milliseconds  until  CTH(I)  milliseconds. 

TSRjECHECK 

DTM1 

When  At  is  modified  in  TSR  to  obtain  the 
time  step  for  the  next  cycle,  the  At  for 
the  current  cycle  is  preserved  as  DTMI 
to  be  used  in  subroutines  which  follow 
TSR  during  the  same  time  cycle. 

TSR,ECHECK 

DTM2 

Read  DTMl  and  substitute  DTP  for  DT. 

THREAD 

DTP 

Initial  time  step  of  problem  input  on 
time  step  card  as  the  second  DT  -  is 
modified  according  to  stability  condi¬ 
tions  in  the  appropriate  TSR  routine. 

CYCRED,  EXEC, 
PPR 

DTPR(6) 

CTP(6)  a  table  of  the  intervals  and 
change  times  for  printouts,  i.e.,  a 
print  out  will  occur  every  DTPR(I) 
milliseconds  until  CTP(I)  milliseconds. 

PPR 

DTPS 

If  DTP  is  changed  in  PPR  because  of  edit 
specifications,  it  is  preserved  as  DTPS 
so  that  the  maximum  DTP  from  the  pre¬ 
ceding  cycle  is  always  available  for 
modification  by  TSR. 

PPR 

DTS 

DT,  same  argument  as  DTPS. 

E0(15) 

The  initial  energy  in  the  zones  of  a 
region. 

REGNRD 

EOSWCH 

Set  non-zero  if  EO  is  input  on  region 
card. 

EG(J+1) 

=Ejti/  New  energy,  see  Eqs.  14,17,18. 

EGM(J+1) 

=Ej _y  Old  energy,  see  Eqs.  14,17,18. 

EL(J+1) 

=L?+^.  New  luminosity.  See  Eq .  15. 

ELM(J+1) 

=L?.  Old  luminosity.  See  Eq .  15, 

1IYD 

EMAX(I)  , 

TEMAX(I)  ,1=1,  NEMAX.  Tables  of  energies 
and  associated  times  for  upper  boundary. 

HYD 

EMIN (I)  , 

TEMIN(I)  1=1,  NEMIN.  Tables  of  energies 
and  associated  times  for  lower  boundary. 

ERFLAG 

Set  non-zero,  causes  message  to  be 
printed  out,  and  calls  exit  if  error 
is  found  in  data. 

REGSR 

ERS(K,IR) 

The  value  of  the  energy  of  the  Kth  step 
of  the  IRth  region  source. 

IV 


I 
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ZONSR 

ES(K,IZ) 

The  value  of  the  energy  of  the  Kth  step 
of  the  IZth  zone  source. 

ROAEXP 

ES 

k 

=  E.  Energy  value  from  calculation. 

ROA 

ESS 

irk 

=  E.  Energy  value  from  calculation. 

REGNRD 

ESWCH 

Set  non-zero  if  energy  value  for  region 
is  input. 

GDR 

ETA 

=  V  /V  =  o/o  density  ratio  (relative 
to  ambient) . 

REGNRD 

EVAL 

Region  energy  input. 

ROA 

EX 

Energy  value  from  previous  iteration 

(used  with  ESS)  to  test  convergence  of 
energy-pressure  iteration  from  PEK  sub¬ 
routine. 


CZR ,GENRAT 

EZ 

Value  of  energy  to  be  used  as  initial 
or  pre -disturbance  (ambient)  energy  for  a 
zone  (used  in  energy  check  sum) . 

REGNRD 

EZAL 

Zone  energy  input. 

REGNRD 

EZWCH 

Set  non-zero  if  zone  energy  is  input. 

PEK 

F 

F  is  P,E,  or  K  if  NQ  is  1,2  or  3, 

respectively  and  ND  is  zero;  or,  F  is 
6F/6T  or  6F/6V  if  ND  is  1  or  2, 
respectively . 


PEK  FD  (FN-F)/FN,  percentage  change  in  function, 

new  value  over  old. 

FIELDN  Has  values  "1"  thru  "4"  corresponding 

to  the  4  fields  containing  input  values 
on  data  cards:  1  for  cols. 16-27,  2  for 
cols.  31-42,  etc. 


CDR 

FK 

Opacity  from  PEK. 

GDR 

FLAM 

Mean  free  path  for  radiation  loss.  Is 
either  Rosseland  (IRAD=3  or  6)  or 
Planck  (IRAD=4  or  7).  See  pp.  64,65. 

PEK 

FN 

New  value  of  function  F. 

GETTV 

FN1T 

dP/^T  used  in  function  inversion 
(Newton-Raphson  method) . 

GETTV 

FN2T 

dE/^T  used  in  function  inversion. 

GETTV 

FN1V 

^P/^V  used  in  function  inversion. 

GETTV 

FN2V 

dE/jjV  used  in  function  inversion. 

PEK,GETVAR 

FP 

Derivative  from  PEK  w.r.t.  T  if  ND=1, 

V  if  ND=2,  of  P  if  NQ=1,  of  E  if  NQ=2, 

of  K  if  NQ=3 . 
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ROC 

G(J) 

Forward  substitution  coefficient,  defined 
in  Eq,  27,  p.  12  of  text. 

TSRIMP, 

TSREXP 

GAMMA 

Radiation  stability  measures  X40/X10, 
see  Eq . 51 }P ,20 .  At8R2(  "1)T3(C5KAn2dE/dT) 

ROC 

H(J) 

Foward  substitution  coefficient  defined 
by  Eq.  22,  p.  11. 

REGNRD 

12000 

Has  two  values :  0  for  tabular  EOS  or 
analytic  EOS  of  the  form  F(T,V) ;  1  for 
analytic  EOS  of  the  form  F(E,V). 

JHTT,JKrU 

IANS 

0  if  T  (or  U  criterion  may  be  used  in 
hydro  only)  <  Z2,  1  if  T(or  U)>  Z2. 

EXEC 

IC 

Counts  number  of  loops  thru  ROC,  RDI, 

ROD.  These  routines  converge  the 
energy  in  implicit  radiation. 

REOST ,GTVRTB , 
FINDC 

IBEGC(I,J) 

Location  of  first  coefficient  in  IKACOE 
tabular  EOS  of  the  Ith  Eq.  (I=>1,2,3 
for  P,E,K)  of  the  Jth  EOS. 

REOST ,GTVRTB, 
FINDC 

IBEGT(I,J) 

Location  of  first  temperature  in  IKACOE 
tabular  EOS  of  the  Ith  Eq. 

REOST, GTVRTB, 
FINDC 

IBEGV (I ,J) 

Location  of  first  volume  in  IKACOE 
tabular  EOS  of  the  Ith  Eq. 

REOST 

ICC 

Location  of  the  first  coefficient  of 
the  Ith  equation  (i.e.,  P,E,  or  K)  of 
the  Jth  EOS. 

PPR 

ICK 

Controls  output  of  energy  edits  (if  0, 
problem  continues  using  At  generated  in 
TSR;  if  1,  At  is  adjusted  to  exact  out¬ 
put  time  as  specified  by  energy  edit 
data  card.) 

EXEC 

ICK2 

Flag  set  in  EXEC  and  transmitted  to  PPR 
indicating  which  pair  (of  a  possible  6) 
is  used  to  start  with  in  modifying  At's 
for  energy  edits. 

REOST 

ICS 

Location  of  the  last  coefficient  of  the 
Ith  equation  (i.e.,  P,E  or  K)  of  the  Jth 
EOS. 

ESTAB 

IDENT 

Represents  the  name  of  the  variable  to 
be  output  by  PROUT  as  indicated  on  the 
output  description  deck  (last  25  data 
cards  in  Execute). 

EXEC 

IDENT 

Problem  identification. 

:  V-^T  ..iTTlLTB , 

IDEOS 

The  ID  number  of  an  equation  of  state 
(tabular) . 

REOST 

IEOS 

The  ID  number  of  an  equation  of  state 
(tabular)  on  the  TABCOE  tape. 

! 


t 
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PPR 

IH 

See  ICK,  and  substitute  "history  edit" 
for  "energy  check." 

PPR 

T.H2 

See  ICK2,  and  substitute  "history"  for 
"energy  check." 

STREAD 

IHYD 

Has  2  values :  0  (or  blank)  for  problems 
with  radiatbn;  non-zero  for  hydro¬ 
dynamics  only.  Input  on  START  card. 

REOST 

INO 

A  counter,  the  ultimate  value  of  which 
is  equal  to  the  total  number  of  tabular 
EOS;  used  as  tabular  EOS  index. 

REOST 

IORDER(INO) 

A  table  containing  the  identification 
number  of  the  INOth  EOS, 

PPR 

IP 

See  ICK  and  substitute  "print  out"  for 
"energy  check." 

PPR 

IP2 

See  ICK2  and  substitute  "print  out" 
for  "energy  check." 

ESTAB 

IPOS 

Position  number  of  the  related  variable 
to  be  output  by  PROUT  as  specified  in 
the  output  description  deck  (see  IDENT) . 
(Not  used  in  all-FORTRAN  version.) 

IR 

Index  for  region  variables,  e.g.,  C2(IR) 
is  the  C2  for  the  IRth  region. 

START  CARD 
(EXEC) 

IRAD 

See  Sec. VI  data  description.  Selects 
type  of  radiation  treatment  (IRAD=1  for 
hydro  only),  (IRAD=2,3  or  4  explicit 
with  different  loss  forms),  (IRAD=5,6, 

7  implicit  with  different  loss  forms) . 

RDI 

IRETRN 

Has  2  values  :  "1"  indicates  further 

looping  thru  ROC,  RDI  to  affect  6L,  6T, 

T  convergence;  "2"  indicates  satisfactory 
convergence  for  all  quantities  in  all 
zones . 

RDI 

IS1 

Has  2  values:  "1"  indicates  6L,  L 
convergence  and  IRETRN=2;  "2"  indicates 
at  least  one  zone  has  a  non-convergence 
in  6L,  or  L  so  IRETRN=1  and  further  loop¬ 
ing  thru  ROC  is  called  for. 

RDI 

IS2 

Has  2  values:  "1"  indicates  6T,T  con¬ 
vergence  and  IRETRN=2.  See  IS4. 

RDI 

IS3 

Has  2  values:  "1"  indicates  6L,  L  con¬ 
vergence  and  IRETRN=2.  See  IS1. 

RDI 

IS4 

Has  2  values:  "1"  indicates  6T,  T  con¬ 
vergence  and  -  IRETRN=2 ;  "2"  indicates 
at  least  one  zone  has  non-converging 

5T  or  T  and  further  looping  thru  ROC  is 
called  for. 
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ESTAB 

ISIG 

The  number  of  significant  figures  desired 
for  the  related  variable  as  specified 
in  the  output  description  deck  (see 

IDENT) .  (Not  used  in  all-FORTRAN  version.) 

CLNUP 

ISSW5 

Is  "0"  until  an  interval  timer  overflow 
occurs  when  it  is  set  to  one.  It  is 
checked  in  EXEC  at  the  end  of  each  cycle. 

If  it  is  "1"  history  edit  and  printout 
occurs .  (A  dummy  CLNUP  subroutine  is 
used  in  the  all-FORTRAN  version.) 

EOSNRD 

ISUB 

IDEOS(ISUB)  is  a  table  containing  the 
identification  number  of  the  EOS  corres¬ 
ponding  to  (ISUB-1)  on  the  EOS  card. 

REOST ,GTVRTB 

ITAB 

ITAB  1  corresponds  to  P;  2  to  E;  3  to 

K  and  tabular  EOS  are  indexed  IBEGT 
(ITAB,IN0) . 

REOST 

ITABNO 

Has  values  1,  2  or  3  corresponding  to 

P,  E,  or  K,  respectively. 

REOST 

ITC 

Location  of  first  temperature  in  the  Ith 
equation  (P,E  or  K)  of  the  Jth  equation 
of  state. 

ESTAB 

ITEM 

Has  integer  values  for  "1"  to  "25"  which 
are  associated  with  a  particular  variable, 
e.g.,  (1  =  radius,  3  =  velocity,  7  = 
temperature)  in  tie  output  description 
deck  (see  p.253).  (Not  used  in  all- 
FORTRAN  version.) 

REOST 

ITOTC 

Total  number  of  coefficients  associated 
with  the  Ith  equation  (i.e.,  P,E  or 

K)  of  the  Jth  EOS. 

REOST 

ITS 

Location  of  the  last  temperature  in  the 

Ith  equation  (i.e.,  P,E  or  K)  of  the 

Jth  EOS. 

ESTAB 

IUNTS(I) 

The  units  which  you  choose  the  associated 
variable  to  be  output  in  by  PROUT  as 
specified  in  the  output  description  deck 
(see  IDENT)  .  (Not  used  in  all-FORTRAN 
version.) 

REOST 

IVG 

Location  of  the  1st  vol.  in  the  Ith 
equation  (i.e.,  P,E  or  K)  of  the  Jth  EOS. 

REOST 

IVS 

Location  of  the  last  vol.  in  the  Ith 
equation  (i.e,,  P,E  or  K)  of  the  Jth  EOS. 

ZONSR 

IZ 

A  counter,  che  ultimate  value  of  which 

is  equal  to  NZSRCE ;  i.e.,  the  tota^ 
number  of  zone  source  functions  in  the 
problem. 
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COMB,CZR 

JC 

When  the  shock  front  reaches  JL  (i.e,, 
when  JHAT=JL)  zones  are  combined  be¬ 
ginning  with  JO  and  J04-1. 

COMB ,CZR 

JOM 

Zones  are  combined  between  JO  and  JOM. 

JOM  is  the  last  zone  to  be  combined. 

COMB  ,CZR 

JOS 

When  JO  reaches  JOM  it  is  reset  to  JOS 
and  then  zones  are  combined  between  JOS 
and  JOM. 

GE’ 

JEO 

If  EO  is  input  as  a  negative  number  on 
the  region  card,  JE0=JREG(IR)+1  (JMAX 
of  IRth  region)  and  the  initial  or 
ambient  energy  of  the  IRth  region  is 
taken  as  EG (JEO) . 

TSRIMP 

JGAMMA 

The  value  of  J  for  which  GAMJ&  is  the 
largest,  i.e.,  the  zone  in  which  the 
most  critical  value  of  GAMMA  exists. 

JHAT 

The  last  zone  of  hydrodynamic  interest, 
or  the  last  zone  for  which  the  value  of 

T  (or  U)  is  greater  than  or  equal  to  Z2. 

TMPRD 

JL 

When  JHAT  reaches  JL  (or  the  shock  front 
reaches  JL)  the  combining  and  adding  of 
zones  begins. 

TSR'S 

JIAM 

The  value  of  J  for  which  LAMBDA  is  the 
largest,  i.e.,  the  zone  in  which  the 
most  critical  value  of  LAMBDA  exists. 

JMAX 

The  total  number  of  zones  in  the  problem. 
JREG(NREG) . 

TSR'S 

JOMEGA. 

The  value  of  J  for  which  OMEGA  is  the 
largest,  i.e.,  the  zone  in  which  the 
most  critical  value  of  OMEGA  exists. 

GRIDGN 

JORIG 

The  first  zone  in  each  region  or  the  J 
value  at  which  the  next  block  of  zones 
(specified  by  a  zone  card)  begins. 

JREG(IR) 

JMAX  of  the  IRth  region,  i.e.,  if  there 
are  NREG  regions  in  the  problem,  JREG 
(NREG)=JMAX. 

SOURCE 

JS(IZ) 

Zone  number  into  which  the  IZth  source 
goes . 

JSTAR 

The  last  zone  of  interest  in  radiation 

problems,  or  the  last  zone  for  which 
the  value  of  T  is  greater  than  or  equal 
to  Zl. 
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REGNRD 

JSWCH 

ROD 

KDM(J) 

ROD 

KM(J) 

BOUND 

KMAX(I) 

BOUND 

KMIN(I) 

ROD 

KP(J) 

REGNRD, ZONGEN 

KSWCH 

REGNRD ,Z0NGEN 

KVAL 

REGNRD, ZONGEN 

KZAL 

REGNRD, ZONGEN 

KZWCH 

ANEOS 

LA 

GMAIN 

LIMIT 

FINDC 

LOOK 

MA 

MAT(J) 

EOSNRD 

ME0S 

GETVAR 

MF 

UNTRED 

MMEGMS 

REGNRD, ZONGEN 

MSWCH 

REGNRD, ZONGEN 

MZWCH 

N 

Is  set  non-zero  if  the  maximum  J  value 
for  the  region  is  input. 

=  (kZ»)?*J.  See  Eq.  16. 

n4-l 

»K  T  ,,  i.e.,  K(T.,V.  p.  See  Eq.  16. 

TKMAX(I)  1=1,  NKMAX.  Tables  of  opaci¬ 
ties  and  associated  times  for  upper 
boundary. 

TKMIN(I)  1=1,  NKMIN.  Tables  of  opaci¬ 
ties  and  associated  times  for  lower 
boundary. 

rvf'l 

J,i+h’  i,e'’  K<Tj>Vj+%)*  See  Eq*  16 • 

Is  set  non-zero  if  opacity  for  a  region 
is  input. 

Is  the  region  opacity  applies  to  all 
zones  in  a  region. 

Is  the  zone  opacity. 

Is  set  non-zero  if  the  zone  opacity  is 
input. 

By  the  time  you  get  to  ANEOS  all  material 
numbers  are  designated  by  1000  to  1005 
inclusive.  Since  LA.  is  defined  as 
(material  number-999)  it  always  has 
integral  values  1  thru  6  inclusive. 

The  maximum  allowable  storage  space  for 
tabular  EOS. 

=IDE0S (ISUB) .  See  ISUB. 

The  material  number  of  the  region. 

Material  number  of  the  Jth  zone. 

A  counter,  the  ultimate  value  of  which 
is  equal  to  the  total  number  of  tabular 
EOS  used  in  the  problem, 

Has  3  values:  1  corresponds  to  P,  2  to 
E,  and  3  to  K. 

Problem  units  (meters,  megagrams,  milli¬ 
seconds)  . 

Is  set  non-zero  if  the  region  mass  is 
input. 

Is  set  non-zero  if  the  zone  mass  is  input. 
Cycle  number. 
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PPR,  CYCRED 

NCKC (6) 

Table  of  final  cycles  in  an  interim 
specified  on  energy  edit  card,  i.e., 
energy  edit  occurs  every  NDCK(I)  until 
NCKC  (I). 

GETVAR 

NCOT 

Iteration  counter  used  to  terminate  loop¬ 
ing  at  NCOT=22,  to  interrupt  averaging 
at  16th  iteration,  and  to  initiate  a 
print. 

GETTV 

NCSW 

It  is  zero  thru  ten  iterations  which 
attempt  to  converge  on  £temp;  on  the 

11th  loop  it  is  set  to  1  causing  a 
printout  to  occur  until  the  15th  pass, 
at  which  time  you  give  up  and  call  exit. 

RPR, CYCRED 

NDCK(6) 

Table  of  cycle  intervals  specified  on 
energy  edit  card. 

PPR, CYCRED 

NDH(6) ,NHC(6) 

Table  of  cycle  intervals  and  change 
cycles  as  specified  on  history  edit 
card,  i.e.,  history  edits  occurs  every 
NDH(I)  cycles  until  NHC(I). 

PPR, CYCRED 

NDP(6) ,NPC(6) 

Table  of  cycle  intervals  and  change 
cycles  as  specified  on  printout  card, 
i.e.,  printouts  occur  every  NDP(I) 
cycles  until  NPC(I) . 

BOUND, HYD 

NEMAX 

The  number  of  maximum  energy  boundary 
conditions . 

BOUND, HYD 

NEMIN 

Number  of  minimum  energy  boundary 
conditions . 

PPR 

NENCK 

The  value  of  N  at  which  the  next  energy 
edit  will  occur. 

REGNRD 

NEOS 

The  material  number  of  the  region  (see 
Sec.V  region  card  discussion). 

STREAD 

NF 

The  final  cycle  to  be  calculated  as 
specified  on  start  data  card. 

RESTRT 

NFT 

=NF.  Final  cycle  to  compute  as  specified 
on  start  card  in  Generate  data. 

PPR , CYCRED 

NHC(6) 

See  NDH(6) . 

PPR 

NHIST 

The  value  of  N  at  which  the  next  history 
edit  will  occur. 

BOUND, HYD 

NKMAX 

The  total  number  of  maximum  opacity 
boundary  conditions. 

BOUND, HYD 

NKMIN 

The  total  number  of  minimum  opacity 
boundary  conditions. 

REOST 

NOTS 

Number  of  temperatures  used  to  define 

function  values  in  a  tabular  EOS. 
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REOST 

NOVS 

Number  of  volumes  used  to  define 
function  values  in  a  tabular  EOS.  Since 
all  tabular  EOS  are  of  the  form  F(T,V) 
the  total  number  of  function  values  in 
the  EOS  must  be  NOTS  x  NOVS. 

CYCRED,PPR 

NPC(6) 

See  NDP(6) . 

BOUND, HYD 

NPMAX 

The  total  number  of  maximum  pressure 
boundary  conditions. 

BOUND, HYD 

NPMIN 

The  total  number  of  minimum  pressure 
boundary  conditions. 

EXEC ,PPR 

NPRT 

The  value  of  N  at  which  the  next  print 
out  will  occur. 

REGSR 

NR 

NR  is  in  the  calling  sequence  of  REGSR 
and  represents  the  number  of  the  region 
currently  being  worked  on  by  the  calling 
subroutine. 

NREG 

The  total  number  of  regions  in  the 
problem. 

REGSR 

NRS  (IR) 

The  number  of  steps  in  the  IRth  region 
source  function. 

REGSR 

NRSRCE 

The  total  number  of  region  source 
functions . 

STREAD 

NS 

The  cycle  at  which  to  start  calculating 
as  specified  on  start  card.  If  NS  is 
a  large  number  (say  greater  than  NF) 
the  problem  will  begin  from  the  last 
cycle  on  the  history  tape. 

EXEC 

NSTART 

Start  cycle  number  on  Execute  section 
of  card. 

BOUND, HYD 

NTMAX 

The  total  number  of  maximum  temperature 
boundary  conditions. 

BOUND, HYD 

NTMIN 

The  total  number  of  minimum  temperature 
boundary  conditions. 

BOUND, HYD 

NUMAX 

The  total  number  of  maximum  velocity 
boundary  conditions. 

BOUND, HYD 

NUMIN 

The  total  number  of  minimum  velocity 
boundary  conditions. 

GETVAR 

NV 

Has  value  1  if  T  is  the  independent 
variable,  or  2  if  V  is  the  independent 
variable. 

ZNGET 

NZ 

Counter  in  ZNGET  the  ultimate  value  of 
which  is  equal  to  NZONE. 

REGNRD ,ZNGET  > 
ZONGEN 

nzoit: 

The  number  of  consecutive  zones  for  which 
the  information  on  the  zone  data  card  is 

true  (see  Sec.V  discussion  of  zone  cards). 
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SOURCE ,ZONSR 

NZS(IZ) 

The  number  of  steps  in  the  IZth  zone 
source  function. 

ZONSR 

NZSRCE 

The  total  number  of  zone  source  functions 

TSR'S 

OMEGA 

Hydrodynamic  stability  measure  (X20)*(X40) 
see  Eq.49,  p.20,  Q  =■  At2R2(6-1>PC3/(VZm2) 

GETVAR 

OVAR 

The  "other"  independent  variable  (T  or 

V)  to  be  returned  by  GETVAR. 

GETVAR 

OVARP 

Previous  value  of  OVAR  in  convergence 
loop. 

ROAEXP 

P12 

«PR^  •%  (PRj ,  time  average 

of  pressure  (between  n  and  nfl)  . 

GENRAT 

PERCSW 

Set  non-zero  if  percents  card  is  en¬ 
countered. 

BOUND, HYD 

PMAX(I), 

TPMAX(I)  1-1,  NPMAX.  Tables  of 
pressures  and  associated  times  for 

upper  boundaries. 

BOUND ,HYD 

PMTN(I)  , 

TPMIN(I)3>1,  NPMIN.  Tables  of 
pressures  and  associated  times  for 
lower  boundaries. 

PR(J) 

.-nfl  „ 

=Pj_^.  New  pressure. 

PRM(J) 

=P?_^.  Old  pressure. 

REGNRD , ZONGEN 

PSWGH 

Set  zero  if  pressure  for  a  region  is 
input. 

regnrd,zongen 

PVAL 

Region  pressure. 

REGNRD, ZONGEN 

PZAL 

Zone  pressure. 

REGNRD, ZONGEN 

PZWCH 

Set  non-zero  if  pressure  for  a  zone  is 
input. 

Q(J) 

=Q.  Artificial  viscosity,  (gq.  13.) 

R(J) 

=Rj.  Radius.  See  Eq .  11. 

If  used  as  a  counter  its  ultimate  value 

REGNRD 

REGNO 

is  equal  to  NREG,  otherwise  it  corres¬ 
ponds  to  NEOS, 

REGNRD 

RGNSW 

Set  non-zero  when  region  card  is  read. 

REGNRD, ZONGEN 

RHSWCH 

Set  non-zero  if  region  density  is  input. 

REGNRD, ZONGEN 

RHVAL 

Region  density. 

REGNRD , ZONGEN 

RHZAL 

Zone  density. 

REGNRD, ZONGEN 

RHZWGH 

Set  non-zero  if  zone  density  is  input. 

RMAX 

Maximum  radius  in  the  problem. 

RMIN 

Minimum  radius  in  the  problem. 
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RRG(15) 

A  table  of  outer  radii  of  regions. 

SOURCE  jREGSR 

RS(IR) 

Region  number  into  which  the  IRth  source 
goes . 

REGNRD ,ZNGET 

RSWCH 

Set  non-zero  if  radius  is  given  for 
region. 

REGNRD ,GRIDGN 

RVAL 

Radius  of  a  region. 

RZWCH 

Set  non-zero  if  zone  radius  is  given. 

ROC 

SAG 

An  implicit  radiation  forward  substitu¬ 
tion  coefficient  (see  Eq.24  of  text, 

P.  12). 

RGSRFN, 

SFN 

The  value  of  the  energy  in  the  analytic 

ZNSRFN 

source  function. 

ROE, ROC 

SIG(J) 

An  implicit  radiation  forward  substitu¬ 
tion  coefficient  (see  Eq.19  of  text, 

P.ll). 

TSR 

SL1 

Flag  set  non-zero  if  At  has  been  modified. 

REGSR ,GDR 

SR 

In  calling  sequence  of  REGSR.  In  REGSR 
SR=ERS (K , IR) +SFN .  It  is  returned  to  the 
calling  subroutine  as  the  total  energy 
source  (step  and  analytic)  of  the  region. 

SOURCE 

SRCESW 

Has  value  1  for  zone  sources,  and  2  for 
region  sources. 

ECHECK 

SUM1 

The  sum  of  the  internal  energy  of  the 
region  in  jerks /steradian. 

ECHECK 

SUM2 

The  sum  of  the  masses  in  a  region  (the 
total  mass  per  steradian  of  a  region) . 

When  multiplied  by  the  initial  energy  of 
the  region  it  is  used  to  compute  CKE(IR), 
the  net  internal  energy  of  IR. 

ECHECK 

SUM3 

The  sum  of  the  kinetic  energy  of  the 
region.  j 

CDR 

SUMDL 

Accumulated  sum  of  DELIL,  i.e.,  ^  AR/X 

/  o  nr  c/  cc\  j  =  JSTAR 

(see  Sec. IV,  pp, 64-65). 

ZONSR ,CDR 

SZ 

In  calling  sequence  of  ZONSR.  In  ZONSR 
SZ=ES (K,IZ)+SFN;  It  is  returned  to  the 
calling  subroutine  as  the  total  energy 
source  (step  and  analytic)  of  the  zone. 

ESTAB 

tab(  ,) 

Tables  containing  the  output  information 

from  the  output  description  deck.  In 
particular  TAB(2,IF)  contains  conversion 
factors  if  output  is  to  be  in  units 
other  than  MMEGMS. 
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TAM(J-hl) 

^  tyi.1  A  rt-M  U. 

Average  temperature  =  j%[(T.  f)  +(T  ',) 
ttfl  L  J_* 

j  * 

"Tj-V 

TEM(J+1) 

TEM3 (Jfl) 

Temperature  raised  to  the  3rd  power 

ctW. 

j  -Y 

TEM4(J+1) 

Temperature  raised  to  the  4th  power 

J  ^  2 

Temperature  squared  (T^  . 

TEMSQ(J+1) 

PEK 

TDIF 

Arbitrary  temperature  change  (for 
derivatives)  =  .0001  ’  T^^. 

BOUND, HYD 

TEMAX(6) 

See  TMAX(I)  • 

BOUND, HYD 

TEMIN(6) 

See  THIN (I) . 

ROC ,CDR,PPR 

THETA (J+l) 

h4*jl  rH*^ 

Loss  term  for  radiation:0.  ?  =  2*D.  f. 

An.  ,=  oT  R  L'  (At)  (AR/\)  f  (see  p.  65). 
J 

CDR 

THSMM(IR) 

Old  value  of  THSUM(IR)  (from  previous 
cycle) . 

CDR 

THSUM(IR) 

-  e  eft 

n  J""2 

BOUND, HYD 

TKMAX(6) 

See  KMAX(I). 

BOUND, HYD 

TKMIN (6) 

See  KMIN(I) . 

TM 

The  time  of  the  current  cycle. 

BOUND, HYD 

TMAX(I)  , 

TTHAX(I) ,  1-1,  NTMAX.  Tables  of  temper¬ 
atures  and  associated  times  for  upper 
boundary. 

BOUND ,HYD 

THIN (I) , 

TTKLN(I) ,  1=1,  NTMIN.  Tables  of  temper¬ 

atures  and  associated  times  for  lower 
boundary. 

PPR 

TMCKL 

=  the  time  at  which  the  next  energy  edit 
will  occur. 

PPR 

TMHL 

=  the  time  at  which  the  next  history 
edit  will  occur. 

PPR 

THPL 

=  the  time  at  which  the  next  print  out 
will  occur. 

SOURCE ,REGSR 

TMRS(K,IR) 

The  time  corresponding  to  ERS(K,IR). 

SOURCE ,ZONSR 

TMS(K,IZ) 

The  time  corresponding  to  ES(K,IZ) . 

BOUND, HYD 

TPMAX(6) 

See  PMAX(I) . 

BOUND, HYD 

TPMIN(6) 

See  PMIN(I) . 
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REGNRD ,ZONGEN 

TSWCH 

Set  non-zero  if  region  temperature  is 
given. 

BOUND, HYD 

TTMAX(6) 

See  TMAX(I) . 

BOUND, HYD 

TTMIN(6) 

See  TMIN(I) . 

BOUND ,HYD 

TUMAX(6) 

See  NMAX(I) . 

BOUND, HYD 

TUMIN(6) 

See  NMIN(I) . 

REGNRD ,ZONGEN 

TVAL 

Region  temperature  input  value. 

REGNRD ,Z0NGEN 

TZAL 

Zone  temperature  input  value. 

REGNRD ,ZONGEN 

TZWCH 

Set  non-zero  if  zone  temperature  is 
given. 

U(J) 

=u"fJ‘.  See  Eq.  8. 

J  "  'z 

BOUND, HYD 

UMAX(I)  , 

TUMAX(I) ,  1=1,  NUMAX.  Tables  of 
velocities  and  associated  times  for 
upper  boundary. 

BOUND, HYD 

UMIN(I)  , 

TUMIN(I),  1=1,  NUMIN.  Tables  of 
velocities  and  associated  times  for 
lower  boundary. 

UNTRED 

UNCGS 

Has  values  0  or  1.  It  is  1  if  output 
is  in  CGS  units . 

ESTAB 

UNI(,) 

Table  containing  output  units  as  speci¬ 
fied  in  output  description  deck  (MAP 
version  only). 

UNTRED 

UNMKS 

Has  values  0  or  1.  It  is  1  if  output 
is  in  MRS  units.  (Meter,  kilograms, 
seconds .) 

REGNRD ,GRIDGN 

USWCH 

Set  non-zero  if  region  velocity  is  input 

REGNRDjGRIDGN 

UVAL 

Region  velocity  input  value. 

REGNRD ,ZNGET 

UZAL 

Zone  velocity  input  value. 

REGNRD  ,ZNGET 

UZWCH 

Set  non-zero  if  zone  velocity  is  input. 

PEK 

VDIF 

Arbitrary  infinitesimal  volume  change 
(for  derivatives)  =  .0001'Vj^u. 

VL(J) 

rH-1 

=\R  ,.  New  volume.  See  Eq ,  12. 

VLM(J) 

=V?  , .  Old  volume. 

J-2 

Set  non-zero  if  specific  volume  of  region 
is  input. 

REGNRD ,ZONGEN 

VSWCH 

REGNRD ,ZONGEN 

WAL 

Value  of  specific  volume  of  region  input. 

REGNRD ,ZONGEN 

VZAL 

Value  of  specific  volume  of  zone  input. 

REGNRD ,ZONGEN 

VZWCll 

Set  non-zero  if  specific  volume  of  zone 
is  input. 
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WLAB 

The  temporary  name  of  the  card  title, 
variable  label  or  variable  value  in  all 
Generate  subroutines  which  read  and 
interpret  data  cards. 

ECHECK 

WTERM 

Net  energy  of  the  region. 

PERC 

XI 

See  Section  V,  pp.  117,  118. 

PERC 

X2 

See  Section  V,  pp,  117,  118. 

PERC 

X3 

See  Section  V,  pp,  117,  118. 

PERC 

X4 

See  Section  v,  pp  117,  118. 

PERC 

X5 

See  Section  V,  pp,  117,  11a. 

PERC 

X6 

See  Section  V,  pp,  117,  118. 

TSRIMP.TSREXP 

X10 

2  times  DTP. 

TSR'S 

X20 

Used  to  obtain  OMEGA  (Q) . 

TSR'S 

X30 

Used  to  obtain  LAMBDA  (X) . 

TSR'S 

X40 

Used  to  obtain  GAMMA  (D • 

TSREXPjTSRIMP 

X10TRM 

Calculated  value  to  be  compared  with 

X10  for  obtaining  new  At. 

RDI 

XL 

=DL/X2/EL (J+l) . 

RDI 

XT 

=DTEM/TEM(J+1) . 

TSR'S 

XX 

(Dummy  label  for  X20,X30). 

ZTEMP 

Z1 

See  Section  V,  p.  117,  Ztemperature  card. 

ZTEMP 

Z2 

See  Section  V,  p,  117,  Ztemperature  card. 

REGNRD(etc.) 

ZGETSW 

Is  set  non-zero  if  further  data  is 
needed  for  region  definition. 

ZONC-EN 

ZNQSW 

="0"  if  region  data  is  complete,  ="1" 
if  T  only  given,  ="2"  if  V  only  given, 
="3"  if  E  only,  ="4"  if  P  only,  ="5"  if 

K  only,  ="6"  if  no  region  variable  given 
="7"  if  mass  only  supplied. 

REGNRD ,ZONGEN 

ZNSWC 

Set  non-zero  if  card  is  "zone"  instead 
of  "region." 

GENRAT 

ZTEMSW 

Set  non-zero  if  Ztemperature  card  is 
encountered. 
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